新建一个TBase_Form,代码如下
TBase_Form = class(TForm)
private
{ Private declarations }
F_UserEvent: TNotifyEvent;
public
{ Public declarations }
procedure Fire_UserEvent();
published
property OnUserEvent: TNotifyEvent read F_UserEvent write F_UserEvent;
end;这里我定义了一个事件OnUserEvent,但是在属性窗口中看不到它,只能在代码里访问。
请问有什么办法可以在属性窗口看见它啊?
TBase_Form = class(TForm)
private
{ Private declarations }
F_UserEvent: TNotifyEvent;
public
{ Public declarations }
procedure Fire_UserEvent();
published
property OnUserEvent: TNotifyEvent read F_UserEvent write F_UserEvent;
end;这里我定义了一个事件OnUserEvent,但是在属性窗口中看不到它,只能在代码里访问。
请问有什么办法可以在属性窗口看见它啊?
如果不用继承类,那你可以用 消息 来添加一个类似的事件,当然这样是在属性栏里看不到的。