Tek Button ile Diğer Kontrollerin Çalıştrılması

[rapsodim]

Arkadaşlar merhaba,
form üzerinde Button1, Button2, Edit1 ve Edit2 var.
Yapmak istediğim Button1 e basıldığında Button2 içinde yazdığım kodlarında çalışması.Bunu yapmak için;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:='deneme';
Button1.OnClick := Button2Click;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit2.text:='deneme1';
end;
Sonuç olarak Button1 e basıldığında edit1 ve edit2 içerisine istenilen bilginin yazılması.
Yarıdmlarınız için şimdiden teşekkür ederim

[Serim]

buton1 e bastığın zaman buton 2 nin kodlarını çalışmasını istiyorsan buton1 in on click olayına aşağıdaki kodu yazman yeterli

Kod: Tümünü seç

 buton2click(Sender); 

İyi çalışmalar.

[rapsodim]

değiniz gibi olmuyor.yukarıda yazıdğım kod çalışıyor fakat ikinci defa clicklemek gerekiyor.birinci clikde text1 içine bilgiyi yazıyor ikinci defa basıldığında text2 içine bilgiyi yazıyor.Tek clikle text1 ve text2 içine bilgi yazdırmak istiyorum.

[ofenX]

Merhaba,

buton1 e bastığın zaman buton 2 nin kodlarını çalışmasını istiyorsan buton1 in on click olayına aşağıdaki kodu yazman yeterli

Kod: Tümünü seç

 buton2click(Sender); 

Kod: Tümünü seç

 buton2click(Sender); 

yerine

Kod: Tümünü seç

 buton2click(button1); 

veya

Kod: Tümünü seç

 buton2click(button2); 

veya

Kod: Tümünü seç

 buton2click(self); 

yazın çalışır. Eğer sender size lazımsa uygun olanı yazın. Lazım değilse yukarıdakilerden birini yazabilirsiniz.

Kolay gelsin.