Delphi 10.2 - 返回点击的 TButton 或 TEdit 的名称

Question

I have a couple of Buttons and Edits and want to get their names into two procedures but can not figure out how. I have set the respective event into OnClick.

1. TButton L1_1 and TButton L1_2 with event OnClick = L1_1Click. Both triggers procedure TForm1.L1_1Click(Sender: TObject);
2. Tedit: Edit1 and Edit2 with event OnClick = CheckNamesClick. Both triggers procedure TForm1.CheckNamesClick(Sender: TObject);

When running I am not getting the item name. It only shows TButton'' and TEdit

Can anyone give me a hint?

Regards Peter Sweden

Answer 1

From a TButton OnClick event handler, you can get the button name using this code:

procedure TForm1.L1_1Click(Sender: TObject);
begin
    Memo1.Lines.Add((Sender as TButton).Name);
end;

procedure TForm1.CheckNamesClick(Sender: TObject);
begin
    Edit1.Text := (Sender as TEdit).Name;
end;