发信人: soaringbird(假行僧*飞翔鸟)
整理人: soaringbird(2001-06-06 08:39:14), 站内信件
|
作 者: delphilxh(先锋) 2001-06-05 18:53:11 :0 :0
[回复] [打包] [转贴]
给控件添加OnMouseLeave事件
作者:grhunter
需要在鼠标离开的时候得到通知吗?看看以下的代码,也许会有帮助。你可以把TImage换成其它控件。关键在于对CMMouseLeave消息的处理。
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.
---- 抵制日货,从我做起!
坚决不给日本鬼子做事!
求职条件之一:日资、中日合资、中日合作企业免谈。
|
|