让提示HINT在主窗体的状态栏显示

只需要创建一个过程和填写APPLICATION属性即可。简单实用！！

procedure TF_ITMMAIN.DisPlatHint(Sender: TObject);
begin
  stat1.Panels[0].Text := '  ' + GetLongHint(Application.Hint);
end;


//在窗体创建填写以下属性
Application.OnHint := DisPlatHint;
  Application.ShowHint := True;