É necessário estar declarado SysUtils, Windows e Forms na seção uses,
em versões unicode declare System.SysUtils, Winapi.Windows e Vcl.Forms.
1 2 3 4 5 6 7 8 9 10 11 | procedure Delay(dwMilliseconds: Longint); var iStart, iStop: DWORD; begin iStart := GetTickCount; repeat iStop := GetTickCount; Application.ProcessMessages; Sleep(1); until (iStop - iStart) >= dwMilliseconds; end; |
Exemplo de uso:
1 2 3 4 5 6 | procedure TForm1.Button1Click(Sender: TObject); begin // A mensagem será exibida após 5 segundos. Delay(5000); ShowMessage('Show Delphi'); end; |
