delphi 立即显示提示

procedure TForm1.FormCreate(Sender: TObject);

begin
  Application.HintPause:=0;//立即显示
  Application.hinthidepause:=100000;//if not leave then 显示100秒
end;

来自为知笔记(Wiz)