Image1鼠标进入、离开时

 

 

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, ExtCtrls, StdCtrls, ImgList;type TForm1 = class(TForm) Image1: TImage; procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); private { Private declarations } procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; public { Public declarations } end;var Form1: TForm1; i : Integer = 0;implementation{$R *.dfm}procedure TForm1.CMMouseEnter(var Message: TMessage);begin // Image1.Picture.LoadFromFile('on.bmp');end;procedure TForm1.CMMouseLeave(var Message: TMessage);begin Image1.Picture.LoadFromFile('out.bmp'); i:= 0 ;end;procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin Image1.Picture.LoadFromFile('on.bmp');end;procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin Image1.Picture.LoadFromFile('in.bmp');end;procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin if i= 0 then begin Image1.Picture.LoadFromFile('on.bmp'); i := 1 ; end;end;end.