Hint的问题：把statusbar控件设成自动显示hint,可是当鼠标移动到没有Hint的控件上时，statusbar总是显示一个特定的Hint!

[8341]

这个时候是否可以显示我指定的一个字符串？

[ken_henderson]

可以，StatusBar.Item[0].Text := '...";

[hkhurus]

if GetLongHint(Application.Hint) = '' then
StatusBar1.SimpleText := 'sdfsdf'
else
StatusBar1.SimpleText := GetLongHint(Application.Hint);

[短歌如风]

在Application.OnHint中作处理.

[短歌如风]

在窗体上放一个ApplicationEvents(Additional页).
在它的OnHint中写:
procedure TForm1.ApplicationEvents1Hint(Sender: TObject);
begin
if Application.Hint = '' then
Application.Hint:='Application';
StatusBar1.SimpleText := Application.Hint;
end;