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没有反映,请给予帮助,谢谢!!!
声明:
-----
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;