Wednesday, 11 April 2012

Menggabung Edit dan Button pada Delphi

haduuuuuhh........

tetep semangaaaaaaaaat........!!!!!

aneh siiiihh...... saya juga gak pernah bikin desain macem ini....
tapi keren juga.... bisa gabungin button dengan edit.

Ok langsung saja......!!!

desain formnya seperti ini.



komponennya 1 Edit, dan 1 SpeedButton (tau kaannn.....???).
nanti hasil programnya seperti ini :



jelas kan?????? tombolnya gabung dengan Edit.

caranya mudah kok....

silahkan copas kode di bawah ini dan letakkan pada Event OnCreat di Form.

procedure TForm1.FormCreate(Sender: TObject);
var
  R : TRect;
begin
  SendMessage(Edit1.Handle, EM_SETMARGINS,EC_RIGHTMARGIN, MakeLong(0,20));
  SpeedButton1.Height := edit1.ClientHeight;
  // inilah inti dari penggabungan
  // yaitu dengan mengatur parent dan SpeedButton1
  SpeedButton1.Parent := Edit1;
  SpeedButton1.Align := alRight;
  SpeedButton1.Cursor := crArrow;

end;


demikian.....

semoga bermanfaat....

jangan lupa komentarnya.....!!

0 comments:

UbaidRahman