自己开发一个可视化的组件,如何添加事件 ?

Question

就是 弄了个 frame 里面有个 webbrowse 把这个 frame 封装成 组件  现在我想 给这个 组件 定义一个事件 OnDownComplete 也就是 组件 完成一些事后 触发这个事件  类似于 webbrowse 的 OnDocumentComplete 事件 

Answer 1

Txxxx = Class(xxxx)
private
  ...
  FOnDownComplete: TNotifyEvent;
  procedure DoDownComplete(Sender: TObject);
  ...
published
  ...
  property OnDownComplete: TNotifyEvent read FOnDownComplete write FOnDownComplete;
  ...
end;implementation...procedure Txxxx.DoDownComplete(Sender: TObject);
begin
  if Assigned(FOnDownComplete) then FOnDownComplete(Sender);
end;...//在你需要触发事件的那个方法中增加对自定义事件的执行代码
procedure Txxxx.YourMethod(...);
begin
  ...
  DoDownComplete(Self);
  ...
end;

Answer 2

弱弱的问一下   自定义的 这个 事件DoDownComplete  能出现在  组件 (frame)  事件列表里嘛 

Answer 3

将包装的frame控件在Delphi环境中注册以后，OnDownComplete可以在Delphi的属性编辑器中显示出来。

Answer 4

注册在delphi 了 可是 组件 属性编辑器 还是显示的 是 frame 的事件 没有多出 OnDownComplete不过访问 封装类 可以访问到 OnDownComplete 事件 测试也通过现在 就是如何 才能显示 到  属性编辑器 ?

Answer 5

刚才 看错了   方法 事件 都有 呵呵 
再次谢谢 biekvn

Answer 6

晕~ 你用的是FRAME的话,FRAME里面的控件的操作跟设计FORM一样的嘛... 

Answer 7

就是把FRAME当FORM那样,正常设计期设计