runtime nesnenin caption bilgisini almak.

[sako]

Aşağıdaki kodla runtime buton oluşturuyorum. Oluşturdğum bu butonlardan hangisine tıklarsam onun caption bilgisini labele nasıl alabilirlirrim.

var
name:TButton;
I: Integer;
begin
for I := 0 to 9 do
begin
name:= TButton.Create(Panel1);
with TButton(name) do
begin
caption := ComboBox1.Items;
Parent := Panel1;
Align:= alright;
end;
end;

[SimaWB]

Runtime'da Butonun OnClick olayına bir procedure atamalısınız. O procedure içinde Sender parametresi yardımıyla Caption'a ulaşırsınız.

Kod: Tümünü seç

type
  TForm1 = class(TForm)
  //
  //
  private 
    procedure ButtonClick(Sender: TObject);
  end;

procedure TForm1.ButtonClick(Sender: TObject);
begin
   //burada TButton(Sender).Caption şeklinde ulaşabilirsin
end;

Yukarıda yazıldığı şekilde kullanmak için senin yazdığın koda bir satır eklemen lazım:

Kod: Tümünü seç

var
  name:TButton;
  I: Integer;
begin
  for I := 0 to 9 do
  begin
    name:= TButton.Create(Panel1);
    with TButton(name) do
    begin
      Onclick := ButtonClick;//Bu satırı eklemelisin
      caption := ComboBox1.Items[i];
      Parent := Panel1;
      Align:= alright;
    end;

end;

[sako]

Teşekkürler tam da aradığım buydu