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

代码如下:typeTForm1=class(TForm)Panel1:TPanel;Image1:TImage;procedureFormCreate(Sender:TO... 代码如下:
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.
展开
 我来答
lin257257
2011-06-16 · TA获得超过424个赞
知道小有建树答主
回答量:331
采纳率:100%
帮助的人:185万
展开全部
不难的,你在进入和离开的时候,把图片的 left 和top都加10
然后再减10减回去,如果效果不明显,可以触发个timer来实现抖动的效果。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
所失佛
2011-06-15 · 超过24用户采纳过TA的回答
知道答主
回答量:56
采纳率:0%
帮助的人:76.7万
展开全部
鼠标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;
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式