change hint.txt

大量Delphi开发资料

ProcedureTMainForm．FormCreate（Sender：TObject）；
begin
  Application．HintPause:=0；｛使文本提示盒立即出现｝
  Application．HintPause:=clBlue；｛以蓝色小方框的方式出现｝
  Application．HintHidePause:=10000；｛延长停留时间为10秒｝
  Application．HintShortPause:=100；
end；