我使用Delphi 10.3.3。适用于Android应用。
在表单上,我有X个矩形对象。我有这样的问题:检测我按下谁的最佳方法是什么?(例如,获取名称)
为OnTap()
事件创建事件处理程序。
在对象检查器中,将此事件处理程序分配给所有矩形的OnTap
事件。
使用Sender
参数,您可以到达触发事件的矩形并找到其名称。例如。
procedure TForm1.Rectangle1Tap(Sender: TObject; const Point: TPointF);
begin
ShowMessage((Sender as TControl).Name);
end;
创建TRectangle
实例并分配事件的示例过程
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
rect: TRectangle;
begin
for i := 0 to 5 do
begin
rect:= TRectangle.Create(Form1);
rect.Parent := Form1;
rect.Position.Point := PointF(10 + i * 75, 10);
rect.Name := 'Rectangle'+IntToStr(i);
rect.OnTap := Rectangle1Tap;
end;
end;