简单又剌手的问题——状态提示!

Question

application.OnHint:=MyHint;
procedure MyHint(Sender:Tobject);
procedure MyHint(Sender:Tobject)
begin
  statusbar.simpleText:=onhint;
end;

Answer 1

好象是这样吧:procedure TMainFrm.MyHint(Sender:Tobject);
begin
  StatusBar1.Panels[0].Text:=GetLongHint(Application.Hint);
end;procedure TMainFrm.FormCreate(Sender: TObject);
begin
    application.OnHint:=MyHint;
end;　　但是我是在DELPHI5中开发的，应该设置StatusBar1的AuotHint为TRUE就可以，我一开始是行的，后来就是不行了。
　　我就是不想写一行代码。