状态栏的提示功能

状态栏的提示功能

要在Delphi中实现在状态栏上的自动提示，又没有太“苛刻”的条件时，我们没有必要再像以前一样，先定义一个过程（ShowMyHint(...)），然后在程序初始化的地方把她赋值给TApplication的OnHin事件。因为只需将状态条的AutoHint属性设为True即可！当然，她似乎只能在第一个Panel上显示（这就是没有太“苛刻”的条件时）。

口水：Kingron以前还真的没有注意到这一点！以前都是写代码来实现的。：（，不过写代码有写代码的好处。例如下面的功能，用AutoHint就没有办法做到。Kingron还发现，必须在窗体上面有一个TApplicationEvents控件才可以达到这样的效果！

Application.OnHint := ShowHint;

procedure TForm1.ShowHint(Sender:TObject);

begin

if Length(Application.Hint) > 0 then

begin

StatusBar.SimplePanel := True;

StatusBar.SimpleText := Application.Hint;

end

else StatusBar.SimplePanel := False;

end;