动态生成的Panel，如何编写他的OnClick事件？？？

Question

Panel是动态生成的。请问怎么编写和响应它的OnClick事件。Panel是这样生成的：
procedure TFormSmallOneSet.FormCreate(Sender: TObject);
var
  x,y:Integer;
begin
  for x:=1 to 20 do
  begin
    for y:= 1 to 20 do
    begin
      PicCell[x,y]:=TPanel.Create(FormSmallOneSet);
//      PicCell[x,y].Show;
      PicCell[x,y].Parent := Self;
      PicCell[x,y].Width := 32;
      PicCell[x,y].Height := 24;
      PicCell[x,y].Left := (x-1)*32+1;
      PicCell[x,y].Top := 35+(y-1)*24+1;
      PicCell[x,y].Color := $0080FFFF;
    end;
  end;
end;有400个动态生成的Panel,怎么响应每个的OnClick事件。

Answer 1

自己定义个过程
procedure TFormSmallOneSet.MyPanelClick(Sender:TObject);
begin
  //你需要的操作
end;然后在每次将动态生成的Panel的属性设置完后，加上这句
PicCell[X,Y].OnClick:=MyPanelClick;