在delphi中,如何实现鼠标滑到图片上,在一个文本框显示提示信息,并且移开后,文本框消息清除请给代码
3个回答
展开全部
控件只能扰启感知鼠标移入,移出后它就感知不了。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;
就这么简单。
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;
就这么简单。
展开全部
1 在form1里 放置一个 Timage 控纳慧件 image1
image加仔岁载一念茄睁张图片
2 image1里的onmouse事件里 写:
label1.caption:='提示了';
form1里的onmouse事件里 写:
label1.caption:='';
解决问题的主要思想是窗体和image 的onmouse事件是不会一起发生的。
image加仔岁载一念茄睁张图片
2 image1里的onmouse事件里 写:
label1.caption:='提示了';
form1里的onmouse事件里 写:
label1.caption:='';
解决问题的主要思想是窗体和image 的onmouse事件是不会一起发生的。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你说的不就是控件的HINT功能吗?只是HINT的弹出显示有时间限制,一般3秒-5秒钟吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询