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

在编写组件中，常常有一些事件，其控件是在组件内，而其中的某一事件的代码要在组件外写。以一个按钮的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/31　T

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有