Forum: Sonstige Fragen zu Delphi
by Jens Hartmann,
20. Feb 2009
Mal angenommen du würdest dem Timer eine Zeit von 1000 ms einstellen, dann würde er nach dem aufruf 1000ms später die im zugewiesenen Funktionen durchführen und nach weiteren 1000 ms erneut.
Solang bis
Timer.Enabled := false;
Forum: Sonstige Fragen zu Delphi
by Jens Hartmann,
20. Feb 2009
Wenn ich es richtig verstanden habe, willst du deine Procedure anhalten, der Benutzer soll die Zeit haben, was Einzugeben und das Programm soll weiterlaufen, dann müsste es so funktionieren. :gruebel:
procedure Delay(Milliseconds: Integer);
var
Tick: DWord;
Event: THandle;
begin
Event := CreateEvent(nil, False, False, nil);
try