在delphi中,如何实现鼠标滑到图片上,在一个文本框显示提示信息,并且移开后,文本框消息清除请给代码

 我来答
RedBaronVIP
2012-12-24 · TA获得超过1147个赞
知道小有建树答主
回答量:655
采纳率:0%
帮助的人:241万
展开全部
控件只能扰启感知鼠标移入,移出后它就感知不了。Delphi隐藏册弯了消息循环,但它自州李闷定义了一些消息,用于处理鼠标移入、移出。
type
TForm1 = class(TForm)
Edit1: TEdit;
Image1: TImage;
private
procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
public
{ Public declarations }
end;

procedure TForm1.CMMouseEnter(var Msg: TMessage);
begin
if TObject(Msg.LParam) = Image1 then
Edit1.Text := 'Image1';
end;

procedure TForm1.CMMouseLeave(var Msg: TMessage);
begin
if TObject(Msg.LParam) = Image1 then
Edit1.Text := '';
end;
就这么简单。
sirouszlh
2012-12-24 · TA获得超过1651个赞
知道小有建树答主
回答量:1038
采纳率:100%
帮助的人:640万
展开全部
1 在form1里 放置一个 Timage 控纳慧件 image1
image加仔岁载一念茄睁张图片

2 image1里的onmouse事件里 写:
label1.caption:='提示了';

form1里的onmouse事件里 写:
label1.caption:='';

解决问题的主要思想是窗体和image 的onmouse事件是不会一起发生的。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
wangqi05110511
2012-12-24 · TA获得超过311个赞
知道小有建树答主
回答量:284
采纳率:100%
帮助的人:121万
展开全部
你说的不就是控件的HINT功能吗?只是HINT的弹出显示有时间限制,一般3秒-5秒钟吧
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式