5 Sekunden warten

[Toenn]

hi @ all aus der :dp:,
ich möchte das nach 5 Sekunden - nachdem das programm gestartet wurde - eine message gezeigt wird (showmessage).

mfg.
Tuenn :wiejetzt:

[kiar]

schon mal sleep () probiert?

[Daniel B]

Hi,

entweder Timer mit 5000, oder Du nimmst GetTickCount und prüfst in einer while-Schleife bis 5 Sekunden vergangen sind und bringst dann Deine Meldung.

[Mirilin]

:hi:

Delphi-Quellcode:

procedure TMainForm.TimerTimer(Sender: TObject);
begin
  Timer.Enabled := False;
  ShowMessage('t');
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Timer.Enabled  := False;
  Timer.Interval := 5000;
  Timer.Enabled  := True;
end;

[Daniel B]

Schön Tobias das Du es geschafft hast einen Mensch dazu zu bringen NICHT in die OH zu schauen. :kotz: