Terkadang kita memerlukan untuk menyatukan antara komponen TEdit dengan komponen yang lain. Misalnya dengan TSpeedButton.
1. Buat aplikasi baru
2. Tambahkan komponen TEdit ke dalam form (Edit1)
3. Tambahkan komponen TSpeedbutton kedalam form (Speedbutton1)
4. Atur tinggi dan lebar speedbutton1 sama dengan tinggi komponen Edit1.
5. Atur Glyph dari Speedbutton sesuai dengan gambar yang diinginkan
Pada event oncreate milik form, tambahkan kode dibawah ini
Var t :TRect;
Begin
SendMessage(edit1.Handle,EM_SETMARGINS,EC_RIGHTMARGIN,MakeLong(0,20));
SpeedButton1.Height :=Edit1.ClientHeight;
SpeedButton1.Parent := Edit1;
SpeedButton1.Align :=alRight;
SpeedButton1.Cursor := crHandPoint;
end;
Hasil akhir akan seperti ini:
Semoga bermanfaat
