在DEPHI中增加了一个ACTIVEX控件，怎么了CLICK事件怎么不管用

Question

新加了一个Activex控件，
var
sq:TCSQ2;
BEGIN
sq:=TCSQ2.Create(self);
  with sq do
  begin
    Align :=alClient ;
    Width :=320;
    Height :=240 ;
    Onclick:=sqclick;
    Parent :=from1;
  end;
end;
procedure TForm1.sqclick(Sender: TObject);
begin  Edit1.Text :=TCSQ2(Sender).Name ;
end;

Answer 1

先执行这段代码：  var
sq:TCSQ2;
BEGIN
sq:=TCSQ2.Create(self);
  with sq do
  begin
    Align :=alClient ;
    Width :=320;
    Height :=240 ;
    Onclick:=sqclick;
    Parent :=from1;
  end;
end;