如何通过鼠标点击获得点击panel的caption值

Question

我的窗替里有一大堆panel 如何通过鼠标点击获得点击panel的caption值?
谢谢！

Answer 1

将所有需要用到的Panel的OnClick事件连接成Panel1Click：
procedure TfrmMain.Panel1Click(Sender: TObject);
begin
  ShowMessage(TPanel(Sender).Caption);
end;

Answer 2

或者在FormCreate事件中加入下面的代码：
var
  i:integer
begin
  for i:=0 to Self.ComponentCount-1 do
    if Self.Components[i] is TPanel then
      TPanel(Self.Components[i]).OnClick:=Panel1Click;   end;

Answer 3

如果我是通过右键点击该panel ， 出来右键菜单 ，选取菜单选项 这样来显示呢