5,929
社区成员
发帖
与我相关
我的任务
分享如何在Form中增加事件？
新建一个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，但是在属性窗口中看不到它，只能在代码里访问。
请问有什么办法可以在属性窗口看见它啊？
...全文
请发表友善的回复…
发表回复
纯冰糖 2006-03-30
- 打赏
- 举报
除非把他作成组件安装到delphi的ide中去使用
yyfhz 2006-03-30
- 打赏
- 举报
可以把Form作为一个控件吗？怎样安装啊？
NightCloud 2006-03-30
- 打赏
- 举报
你要在属性框中看见你自定义的属性，需要自定义一个控件，然后安装在dlephi中
FeiXue_AL 2006-03-30
- 打赏
- 举报
这样子在属性窗口当然看不到了，你可以自己从Tform上继承一个 类然后加上你的事件，然后用新的类生成一个对象，这样就可以了。
如果不用继承类，那你可以用 消息 来添加一个类似的事件，当然这样是在属性栏里看不到的。
如果不用继承类，那你可以用 消息 来添加一个类似的事件，当然这样是在属性栏里看不到的。
