Question

Delphi 如何获取控件序号?

Form1 上有24个panel,名称依次为Panel1,Panel2...Panel24;我希望这24个Panel的onclik事件共用，如：(所点击的控件).caption:=inttostr(所点击的控件名称序号),可不可以只写一段共用代码，每个Panel的onclik事件都共用用它？
（不要告诉我在每个onclik事件中，分别填写代码，）

Answer 1

procedure TForm1.Panel1Click(Sender: TObject);
begin
TPanel(Sender).Caption := Copy(TPanel(Sender).Name,6,2);
end;

Answer 2

procedure TForm1.MyPanelOnclick(sender: TObject);
begin
TPanel(sender).Caption :=
Copy(TPanel(sender).Name, Length('panel') + 1, 2);
end;

// 动态为事件赋值
procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
for i:= 0 to Self.ControlCount - 1 do
begin
if Self.Controls[i] is TPanel then
TPanel(Self.Controls[i]).OnClick := MyPanelOnclick;
end;
end;