[ÇÖZÜLDÜ] Çalışma Zamanında oluşturulan nesnede çalışma farkı

[shooterman]

Arkadaşlar selamlar

Çalışma zamanında butonlar create ediyorum. Normalde form üzerine oluşturulan butona tıkladığımda hangi buton olduğunun adını alıyorum. Ama bu butonları bir scrollbox içine create ettiğim zaman tıkladığımda buton caption gelmiyor. Kodlar aşağıda. Neden olduğunu bir türlü bulamadım. konu hakkında destek alabilrsem çok sevinirim.

Form üzerine create :

procedure TForm1.Button3Click(Sender: TObject);
var
 Button: TButton;
begin
 Button:=TButton.Create(Form1);
 try
   with Button do
   begin
     Parent:=Self;
     Left:=Random(Form1.ClientWidth-Width);
     Top:=Random(Form1.ClientHeight-Height);
     Caption:='Button';
     OnClick :=  tiklama;  
   end;
 except
   Button.Free;
 end;
end;

scroolbox içine create :

procedure TForm1.Button4Click(Sender: TObject);
var
 btnTest : TButton;
 i : integer;
begin
for I := 0 to 10 do
   begin
   btnTest := TButton.Create(ScrollBox1);
   btnTest.Parent := ScrollBox1;
   btnTest.Align := altop;
   btnTest.Height := 20;
   btnTest.Caption:=Format('Buton %d', [i]);
OnClick :=  tiklama; 
end;
end;

tiklama kodu :

procedure TForm1.myClick(Sender: TObject);
begin
 with Sender as Tbutton do
//  Self.Caption := ClassName + ' ' + Name;
   Self.Caption := caption;
end;

[PROGRAMADOR35]

with'siz deneyin. ana formun caption'ı ile sender'inkiler (button) karışmış sanırım. Program yazarken asla with kullanmam. diğer componentlerin methodları ile çakışma yaşanabiliyor.

[shooterman]

malesef çalışmadı

[PROGRAMADOR35]

tiklama:= myclick?

[shooterman]

(13-01-2021, Saat: 12:40)PROGRAMADOR35 Adlı Kullanıcıdan Alıntı: tiklama:= myclick?

elbetteki

[PROGRAMADOR35]

Button4Click(Sender: TObject); prosedüründe hata yapmışsınız.

OnClick'in formun onclick'i. btnTest.OnClick := myClick ya da tiklama yazmalısınız.

[mustafaozpinar]

Çalışıyor, sadece ScrollBox içine yazdırırken OnClick için

   btnTest.OnClick :=  myClick;

yapmamışsınız. Ya da ben konuyu anlayamadım.

[PROGRAMADOR35]

(13-01-2021, Saat: 12:51)mustafaozpinar Adlı Kullanıcıdan Alıntı: Çalışıyor, sadece ScrollBox içine yazdırırken OnClick için

   btnTest.OnClick :=  myClick;

yapmamışsınız. Ya da ben konuyu anlayamadım.

Scrollbox içindeki butonların onclick olayı çalışmıyordu. Yanlışlıkla formun onclick'i atanmış.