Hangi bileşene tıklandı?

label,edit,Groupbox ve buton yerleştirerek,labele seç ismini veriniz,butona kapat ismini veriniz. Checkbox ve radiobutton ekleyiniz.

Kod;

procedure TForm1.Edit1DblClick(Sender: TObject);

begin

Edit1.Text := 'Edit bileşenine çift tıklandı ';

end;

procedure TForm1.Label1DblClick(Sender: TObject);

begin

Edit1.Text := 'Label bileşenine çift tıklandı ';

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

Edit1.Text := 'CheckBox1''e tıklandı ';

end;

procedure TForm1.CheckBox2Click(Sender: TObject);

begin

Edit1.Text := 'CheckBox2''e tıklandı ';

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

Edit1.Text := 'RadioButton1 bileşenine tıklandı ';

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

Edit1.Text := 'RadioButton2 bileşenine tıklandı ';

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Text := 'Kapat düğmesine tıklandı ';

end;

end.