change hint.txt

来自「大量Delphi开发资料」· 文本 代码 · 共 8 行

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