精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>控件开发和使用>>给控件添加OnMouseLeave事件(转自BJ)

主题:给控件添加OnMouseLeave事件(转自BJ)
发信人: 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.  

 
 



----
抵制日货,从我做起!
坚决不给日本鬼子做事!
求职条件之一:日资、中日合资、中日合作企业免谈。
   

[关闭][返回]