Question

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

Answer 1

在编写组件中，常常有一些事件，其控件是在组件内，而其中的某一事件的代码要在组件外写。以一个按钮的onClick事件为例：在类中设置如下代码：private
FonClick: TNotifyEvent;
procedure ClickTransfer(Sender: TObject); { TNotifyEvent }publishproperty onClick: TNotifyEvent read FonClick write FonClick; 在实现部分：
procedure 类名.ClickTransfer(Sender: TObject);
{ Transfers LButtonFind onClick event to the outside world. }beginif assigned(FonClick) then
FonClick(Self); { Substitute Self for subcomponent's Sender. }
end; { ClickTransfer }在create中加入一条语句：
constructor 类名.Create(AOwner: TComponent);begininherited Create(AOwner);
{Place your custom initialization code here.}
ButtonFind.onClick := ClickTransfer;
end;在create中，将控件的onClick 事件与ClickTransfer绑定。那么。在窗口有你加上一个你自制的组件，在组件的事件列表中会有一个onClick事件。在这个事件中的代码，当你按下组件中的按钮时，会执行。其执行关键是： if assigned(FonClick) then
2004/08/31 T