procedure TForm1.FormCreate(Sender: TObject);
begin
Application.HintPause:=0;//立即显示
Application.hinthidepause:=100000;//if not leave then 显示100秒
end;
delphi 立即显示提示
时间: 2024-10-29 12:13:05
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.HintPause:=0;//立即显示
Application.hinthidepause:=100000;//if not leave then 显示100秒
end;
delphi 立即显示提示