如何实现 显示窗体上控件的Hint

[微笑的水]

窗体上 有 若干已填写Hint值得控件。
求实现
当鼠标悬停至某个控件上方的时候，能将这个控件的hint信息
提交给同一窗体上的 一个 label的caption属性
谢谢 各位

[老之]

放一个Timer
procedure TForm1.Timer1Timer(Sender: TObject);
var p:TPoint;
h:HWND;
begin
GetCursorPos(p);
h:=WindowFromPoint(p);
Label1.Caption:=FindControl(h).Hint;
end;

[cuteant]

楼上的方法可行

将Timer的Interval设置小一点

[cuteant]

最好加个判断

procedure TForm1.Timer1Timer(Sender: TObject);
var
p: TPoint;
h: HWND;
begin
GetCursorPos(p);
h := WindowFromPoint(p);
if FindControl(h).ShowHint then Label1.Caption := FindControl(h).Hint;
end;

[AKFish]

在华丽的Additional页中有个华丽的ApplicationEvents控件~
在华丽的ApplicationEvents空间的Event中有一个华丽的OnHint~
把这句写进去就行鸟~
label1.Caption := GetLongHint(application.Hint);

[AKFish]

如果要对Hint内容做一些操作~
可以写在ApplicationEvents的OnShowHint中~
procedure TForm1.ApplicationEvents1ShowHint(var HintStr: string;
var CanShow: Boolean; var HintInfo: THintInfo);
其中HintStr为Hint的内容~
CanShow改为False就不出现Hint~
HintInfo为Hint的相关信息~
THintInfo类定义在Forms单元~
看着办吧~
THintInfo = record
HintControl: TControl;
HintWindowClass: THintWindowClass;
HintPos: TPoint;
HintMaxWidth: Integer;
HintColor: TColor;
CursorRect: TRect;
CursorPos: TPoint;
ReshowTimeout: Integer;
HideTimeout: Integer;
HintStr: string;
HintData: Pointer;
end;

[ccrun.com]

楼上的回答好华丽撒～～～

[ourlin]

简直美不胜收^_^

[微笑的水]

看了华丽的答案都不知道怎么给分了

[sdzeng]

type
TForm1 = class(TForm)
Label1: TLabel;
....................
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure OnDisplayHint(Sender: TObject);
public
{ Public declarations }
end;


................
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnHint := OnDisplayHint;
end;

procedure TForm1.OnDisplayHint(Sender: TObject);
begin
label1.Caption := GetLongHint(application.Hint);
end;

[wanghome]

捕捉鼠标，激活事件，判断位置，属性，获取HINT信息，发消息到LABEL，显示出来。