我想向控件添加 OnCreate事件,但..??(100分)

  • 主题发起人 主题发起人 mayong
  • 开始时间 开始时间
M

mayong

Unregistered / Unconfirmed
GUEST, unregistred user!
我制作一个控件,派生于 TGraphicControl ,想加入一个 OnCreate 事件,结果
发现总是不成功, 程序对 OnCreate没有反映,请给予帮助,谢谢!!!

声明:
-----
FOnCreate: TNotifyEvent;
---
property OnCreate: TNotifyEvent read FOnCreate write FOnCreate;

实现:
------
constructor TDaoCha.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
-----
-------
if Assigned(FOnCreate) then
FOnCreate(Self);
end;
 
你这里有个逻辑问题, 当实例没有创建时无法给OnCreate事件赋值, 如果实例已经创建
那么即使给他赋值也不会被调用...., 所以, 呵呵...
 
tseug 仁兄说得有理,重载createwnd 吧
 
用重载,没错

看看 Delphi开发指南 就可以了
 
接受答案了.
 
后退
顶部