Question

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

Answer 1

控件只能感知鼠标移入，移出后它就感知不了。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;
就这么简单。

Answer 2

1 在form1里 放置一个 Timage 控件 image1
image加载一张图片

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

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

解决问题的主要思想是窗体和image 的onmouse事件是不会一起发生的。

Answer 3

你说的不就是控件的HINT功能吗？只是HINT的弹出显示有时间限制，一般3秒-5秒钟吧