请问在Delphi中，为什么点击stringgrid中的Button，它的click事件不被响应呢？

Question

我在stringgrid中动态的加Button~代码如下：
    leftPos:= 0;
    topPos := 0;
    for i:= 0 to 9 do
    leftPos:=leftPos+self.strngrdjhsz.ColWidths[i]+1;
    for i:= 0 to ARow-1 do
    topPos :=topPos+self.strngrdjhsz.RowHeights[i]+1;
    btnaddJQ.Left := strngrdjhsz.Left+leftPos+2;
    btnaddJQ.Top  := strngrdjhsz.Top+topPos+2;
    btnaddJQ.Width  := strngrdjhsz.ColWidths[10]+1;
    btnaddJQ.Height := strngrdjhsz.RowHeights[aRow];
    btnaddJQ.Visible:= True;
运行的时候，点击某一行的单元格，在那一行的第10列式可以显示出来按钮的，但是点击那个按钮的时候不仅不会触发它的click事件，反而按钮消失了~
实在找不出原因，所以上来问问各位高手！谢谢！

Answer 1

动态添加后，你要指定事件啊
比如你的按钮事件是 Procedure DoClick(sender:TObject);
那你创建按钮后btn := TButton.Create(Self);
btn.Onclick := DoClick;

Answer 2

按钮是已经创建好的，跟stringgrid在一个panel里面，运行时只是动态的移动它的位置。
button的click事件我已经写好了。但是就是不触发。