动态创建的按钮组Click事件无效

Question

//TbtnHotKey是自定义按钮,跟一般按钮那样使用就可以了
  public//btnList定义为public
    { Public declarations }
    btnList:array of TbtnHotKey;
for i:=0 to 9 do
    begin
      btnList[i]:=TbtnHotKey.Create(dept[i].DeptID,dept[i].DeptName,dept[i].DeptPhone,dept[i].PhoneState,dept[i].ShowNO);
btnList[i].parent:=panel1;
btnList[i].show;
//总之动态创建的按钮组是窗体全局的,而已已经成功创建出来.但是不会做事件处理尝试这样做,结果没有效果,也不报错.//声明
procedure btnListClick(Sender:TObject);
//实现
procedure TFormMain.btnListClick(Sender:TObject);
begin
  application.MessageBox(pchar(TbtnHotKey(sender).Caption),'系统提示');
end;

Answer 1

btnList[i].Onclick := btnListClick;

Answer 2

晕,原来delphi是这样弄的
btnList[i].OnClick := btnListClick;