急救：如何在控件中自定义事件！？？？？？高手请进！！！！

[qyluo]

如何在控件中自定义事件！？？？？？？？

[netlib]

设一个过程或函数的类型的属性
放到published中就可以了。

[紫气东来-长江]

private
FOnChange:TNotifyEvent

published

property OnChange:TNotifyEvent read FOnChange Write FOnChange

[u2m]

定义的方法也很简单，和定义属性差不多，只是类型时TNotifyEvent罢了。　　　
　　TNotifyEvent是默认事件，其定义为：
　　TNotifyEvent = procedure(Sender: TObject)
　　如果你要定义另外形式的事件，就必须这样：先在type后编写
　　<事件类型名称> = procedure(<参数>:<类型>)
例如：
　　TCustomEvent = procedure(a: Integer; b:String);
然后在public后定义：
　　 <事件名称>:<事件类型名称>
例如：
　　AnEvent: TCustomEvent;

[naughtyboy]

如何给控件添加OnMouseLeave事件

unit Main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
ExtCtrls;
type
TMyImage = class(TImage)
private
FOnMouseLeave: TNotifyEvent;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
protected
public
published
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Samples', [TMyImage]);
end;

procedure TMyImage.CMMouseLeave(var Message: TMessage);
begin
inherited;
if Assigned(FOnMouseLeave) then FOnMouseLeave(Self);
end;

end.

[naughtyboy]

你首先要做一个自己的控件,继承自delphi自带的VCL
上面的是一个例子