2分！！！！！，onclick事件！！

Question

procedure TForm1.Panel2Click(Sender: TObject);
begin
  showmessage('Good');
end;procedure TForm1.StaticText1Click(Sender: TObject);
begin
  panel2.OnClick(StaticText1); 
  //panel2.OnClick(Sender);
end;其实你写的语句也对了,功能可以实现!

Answer 1

procedure TForm1.Panel2Click(Sender: TObject);
begin
  showmessage((Sender as TPanel).Hint);
end;
error,出错了，怎么搞得呀，哈哈哈

Answer 2

当然！但是，不填statictext1,填别的也可以，如∶image1!
  
^_^ WHY??????????

Answer 3

在这里你随便填一个tobject就行了，除非你的onclick中要对该sender进行某些处理