动态创建的控件,如何把事件写在一个公共的unit里面?
解决方案 »
- delphi中弹出窗体
- 求:关于spcomm控件编程的实例.越详越好!!
- DBExpress引擎怎样在两个SQL SERVER数据库之间拷贝数据?
- 关于字符串的两个问题,请教!
- 分不够再给,高手们帮我看看这个问题,明天要去公司了,还是没有解决,救命啊(trackbar)!!!
- delphi,再次提问,只求一个正确答案:一个初学者关于编译程序时的错误:Class TimageEx not found.
- 窗体有个属性是,Monitor,请问他是干什么的,有什么用!
- 定时器问题!!!
- 关于treeview控件的,如何能做成向联众游戏的大厅那样的效果
- 100分
- 怎么设置一个定时器的间隔?
- 怎么去掉窗口的标题栏?
Unit中写:
procedure Timer1Timer(Sender: TObject);
begin
MessageBox(0, 'aa', 'bb', 0);
end;调用是
var
Method:TMethod;
begin
Method.Data := nil;
Method.Code := @Timer1Timer;
timer1.OnTimer:= TNotifyEvent(Method);
end.http://lysoft.7u7.net
button1: tbutton;
procdure button1click(sender: tobject);
end;procedure tform1.button1click(sender: tobject);
begin
showmessage(Self.caption);
end;你看button1click这个方法,它要用到self.caption也就是form1的caption,这个self就是上下文变量你说的写在一个公共的单元里,假设也要动态创建象上面的button1的button,也就是这个button也要执行showmessage(form1.caption),那么如果不依附在form1上面,就得不到self,也无从得到caption
事件可以先写好函数,然后动态添加到按钮里。看看按钮click事件函数怎么写。我们现在很多函数都是动态挂在按钮上的,不难!