Button dalam Edit Delphi

Tambahkan 1 BitButton dan 1 Edit seperti gambar berikut

Source code lengkap :

unit Unit1;<br /><br />interface<br /><br />uses<br />  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br />  Dialogs, StdCtrls, Buttons;<br /><br />type<br />  TForm1 = class(TForm)<br />    Edit1: TEdit;<br />    BitBtn1: TBitBtn;<br />    procedure BitBtn1Click(Sender: TObject);<br />    procedure FormCreate(Sender: TObject);<br />  private<br />    { Private declarations }<br />  public<br />    { Public declarations }<br />  end;<br /><br />var<br />  Form1: TForm1;<br /><br />implementation<br /><br />{$R *.dfm}<br /><br />procedure TForm1.BitBtn1Click(Sender: TObject);<br />begin<br />  Edit1.Clear;<br />end;<br /><br />procedure TForm1.FormCreate(Sender: TObject);<br />begin<br /> SendMessage(Edit1.Handle, EM_SETMARGINS, EC_RIGHTMARGIN, makelong(0,0));<br /> BitBtn1.Height:= Edit1.ClientHeight;<br /> BitBtn1.Parent:= Edit1;<br /> BitBtn1.Align:= alRight;<br />end;<br /><br />end.

Hasil screenshot :