Question

delphi如何让panel上的image当鼠标enter和leave时出现闪动？

代码如下：
type
TForm1 = class(TForm)
Panel1: TPanel;
Image1: TImage;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.CMMouseEnter(var Msg: TMessage);
var anObject : TObject;
begin
anObject := TObject(Msg.lParam);
image1.Picture.LoadFromFile('4.bmp');
end;
procedure TForm1.CMMouseLeave(var Msg: TMessage);
var anObject : TObject;
begin
anObject := TObject(Msg.lParam);
if (anobject = image1) then
image1.Picture.LoadFromFile('3.bmp');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
image1.Picture.LoadFromFile('3.bmp');
end;

end.

Answer 1

不难的，你在进入和离开的时候，把图片的 left 和top都加10
然后再减10减回去，如果效果不明显，可以触发个timer来实现抖动的效果。

Answer 2

鼠标Enter和Leave相对谁来说的?整个窗口还是panle?

追问

panel上的image，谢谢。

追答

TMyImage = class(TImage)
private
FOnMouseEnter: TNotifyEvent;
FonMouseLeave: TNotifyEvent;
procedure cmmouseenter(var Message: TMessage); message CM_MOUSEENTER;
procedure cmmouseleave(var Message: TMessage); message CM_MOUSELEAVE;
public
published
property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
property OnMouseLeave: TNotifyEvent read FonMouseLeave write FonMouseLeave;
end;

implementation

{ TMyImage }

procedure TMyImage.cmmouseenter(var Message: TMessage);
begin
inherited;
if Assigned(FOnMouseEnter) then
FOnMouseEnter(self);
end;

procedure TMyImage.cmmouseleave(var Message: TMessage);
begin
inherited;
if Assigned(FonMouseLeave) then
FonMouseLeave(self);
end;