Delphi 10.2 - Return 单击的 TButton 或 TEdit 的名称

Question

我有几个按钮和编辑器，想将它们的名称放入两个程序中，但不知道如何操作。我已将相应的事件设置为 OnClick。

TButton L1_1 和 TButton L1_2 事件 OnClick = L1_1Click。两个触发器 procedure TForm1.L1_1Click(Sender: TObject);
Tedit：Edit1 和 Edit2 事件 OnClick = CheckNamesClick。两个触发器 procedure TForm1.CheckNamesClick(Sender: TObject);

当运行我没有得到项目名称。它只显示 TButton'' 和 TEdit

谁能给我提示？

问候彼得瑞典

Answer 1

从 TButton OnClick 事件处理程序中，您可以使用以下代码获取按钮名称：

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;

Delphi 10.2 - Return 单击的 TButton 或 TEdit 的名称

Delphi 10.2 - Return names of clicked TButton or TEdit

delphi

delphi-10.4-sydney