1.) Pomocou príkazu
Sleep( miliseconds: Cradinal ). Čiže ak je nutné po stlačení tlačidla čakať čas jednu sekundu, tak kód bude vyzerať takto:
Kód:
procedure TForm1.Button1Click(Sender: TObject);
begin
Sleep( 1000 ); // cakaj jednu sekundu
ShowMessage( 'Správa zobrazená po uplynutí určitej doby' );
end;
Pozor: Funkcia Sleep spomalí celé vykonávanie programu, čiže neprebieha ošetrovanie správ po celú dobu času, ktorý má ako parameter.
2.) Použiť komponent
TTimer z palety System.
Na konci
toho článku je drobný popis tohto komponentu.