当鼠标离开一个image1时,用什么事件? 当鼠标离开一个image1时,用什么事件? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin//end; 楼上的方法可以吗?即使可以效率也太低了,控制起来也不方便自己派生子类,然后拦截CM_MOUSELEAVE消息算了!....private procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;.... unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TMyImage = class(TImage) private procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; end; TForm1 = class(TForm) Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; MyImage : TMyImage;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);beginend;{ TMyImage }procedure TMyImage.CMMouseLeave(var Message: TMessage);begin Inherited; ShowMessage('正在离开');end;procedure TForm1.Button1Click(Sender: TObject);begin MyImage:=TMyImage.Create(Application) ; with MyImage do begin Align:=alLeft; Width:=Self.Width Div 2; Canvas.Brush.Color :=clWhite; Parent:=Self; end;end;Initialization RegisterClass(TMyImage);end. delphi savedialog问题 service application,Tserversocket,dll的问题,急急急!!!在线等 如何做成左右分栏的形式,左边菜单,右边显示窗体,点左边,在右边显示窗体?怎么实现,十万火急!在线等待! 急 socket的文件传输 那里有QuickReport3.62下载 得到三个三角,散600,这是第三个100分, 12:02结贴 书签无效5555~~~~~~~~~~~~~~~``为什么 请教一个关于dbgrid的用法 救救我吧! 求做ocx的书籍 DLL里封装WSDL接口的错误
Y: Integer);
begin
//
end;
....
private
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
....
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;type
TMyImage = class(TImage)
private
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
end; TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
MyImage : TMyImage;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
beginend;{ TMyImage }procedure TMyImage.CMMouseLeave(var Message: TMessage);
begin
Inherited;
ShowMessage('正在离开');
end;procedure TForm1.Button1Click(Sender: TObject);
begin
MyImage:=TMyImage.Create(Application) ;
with MyImage do
begin
Align:=alLeft;
Width:=Self.Width Div 2;
Canvas.Brush.Color :=clWhite;
Parent:=Self;
end;
end;Initialization
RegisterClass(TMyImage);end.