运行时创建的组件怎样添加事件处理(15分)

  • 主题发起人 主题发起人 binjinsx
  • 开始时间 开始时间
B

binjinsx

Unregistered / Unconfirmed
GUEST, unregistred user!
例如:我在程序运行时创建了一个image控件,
在添加完毕后,想给它增加一个OnClick的事件处
理,请问该如何处理。
谢谢!
 
1.定义一个过程
proctected
procedure onImageClick(Sender:TObject);
......
2.为 onClick 事件赋值
with TImage.Create(self)do
begin
onClick := onImageClick;
....
end;
 
Additional,you should define a procedrue ,its 格式 should like the
event's declare,the 赋值,all ok!
 
接受答案了.
 
后退
顶部