不耻下问!!!!

Question

在窗体中我已经动态的加载了控件,比如button1
可是怎么定义他触发的事件呢?

Answer 1

procedure Form1.BtnClick(Sender: Tobject);
begin
...
end;Button1.OnClick := BtnClick;

Answer 2

Button的事件是TNotifyEvent类型的属性，直接用同类型的procedure 给它赋值就可以了procedure MyButtonOnClick(sender:TObject);
   .
   .
   .
button1.OnClick:=MyButtonOnClick;

Answer 3

reallike 你有没有查过词典啊？什么叫不耻下问啊？它是虚心向别人求教的意思啊 懂不懂啊！
不懂不要乱说！

Answer 4

To:HUYE19821014() 
不耻下问：不把向学问、地位等不如自己的人请教当成可耻的事。形容谦虚、好学。
问的人是“虚心向别人求教”，但对答的人就不太尊重了。