Formun üzerine bir adet speedbutton koydum. Daha sonra buna çift tıklama yapmadan gerekli kodları kendim " Type " in altında
Kod: Tümünü seç
procedure SpeedButton1Click(Sender: TObject);
Buton click procedure sini de el ile yazdım.
Kod: Tümünü seç
procedure TForm1.SpeedButton1Click(Sender: TObject);
Begin
Showmessage('deneme');
End;
Teşekkürler.