DELPHI7 如何在编写可视组件中传递一个事件到组件外部?

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

在编写组件中,常常有一些事件,其控件是在组件内,而其中的某一事件的代码要在组件外写。以一个按钮的OnClick事件为例:

在类中设置如下代码:

private

FOnClick: TNotifyEvent;

procedure ClickTransfer(Sender: TObject); { TNotifyEvent }

publish

property OnClick: TNotifyEvent read FOnClick write FOnClick;

在实现部分:

procedure 类名.ClickTransfer(Sender: TObject);

{ Transfers LButtonFind OnClick event to the outside world. }

begin

if assigned(FOnClick) then

FOnClick(Self); { Substitute Self for subcomponent's Sender. }

end; { ClickTransfer }

在create中加入一条语句:

constructor 类名.Create(AOwner: TComponent);

begin

inherited Create(AOwner);

{Place your custom initialization code here.}

ButtonFind.OnClick := ClickTransfer;

end;

在create中,将控件的OnClick 事件与ClickTransfer绑定。

那么。在窗口有你加上一个你自制的组件,在组件的事件列表中会有一个OnClick事件。

在这个事件中的代码,当你按下组件中的按钮时,会执行。其执行关键是:

if assigned(FOnClick) then

FOnClick(Self); { Substitute Self for subcomponent's Sender. }

这句话是说如果你在用此组件时,在其OnClick中写了代码,即会被执行。

2004/08/31T

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航