Çalışma Zamanında bButon Oluşturmak

[hasansavci]

Arkadaşlar ben aşağıdaki kodla çalışma anında table1 bağlı data.db içerisinde kayıtlı olan kayıt sayısı kadar otomatikmen buton oluşturuyorum. bu butonlar table1 e bağlı data.db içinde masa isimleri enleri boyları kayıtlı o ölçüye göre oluşuyor.
benim sıkıntım butonlar oluştuktan sonra hangi butonun üzerine tıklarsam. o butonun üzerinde data.db den aldığı masa isminin edit1.text üzerinde görünmesi.

edit1.Text:=x.button.caption; yazıyorum ama olmadı. bu konuda yardımcı olurmusunuz.



unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids, DB, DBTables, ComCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
DataSource1: TDataSource;
Table1: TTable;
DBGrid1: TDBGrid;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
DBEdit6: TDBEdit;
DataSource2: TDataSource;
Table2: TTable;
DBGrid2: TDBGrid;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
procedure Button1Click(Sender: TObject);
procedure DugmeClick(Sender: TObject);
procedure FormCreate(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
x:TButton;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
BMrk:String;
begin
BMrk:=Table1.BookMark;
with table1 do
begin
First;
while not EOF do
begin
x:=Tbutton.Create(form1);
x.left:=StrToInt(dbedit2.text);
x.Top:=StrToInt(dbedit3.text);
x.Width:= StrToInt(dbedit4.text);
x.Height:= StrToInt(dbedit5.text);
x.parent:=Form1.PageControl1.Pages[0];


x.caption:=dbedit1.text;
x.OnClick:=DugmeClick;

next;
end;
Table1.Bookmark:=BMrk;

end;
end;


procedure TForm1.DugmeClick(Sender: TObject);


begin
edit1.Text:=x.button.caption;



end;

[thelvaci]

Kod: Tümünü seç

Edit1.Text := (Sender as TButton).Caption;