状态栏的提示功能

状态栏的提示功能
要在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;