Pause methode bis tastendruck

[jim_raynor]

Zitat von Pseudemys Nelsoni:

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
stoppen := true;
end;

procedure pausieren;
var
  i: integer;
begin
  while not stoppen do
  begin
    sleep(1);
    Application.ProcessMessages;
  end;
end;

{..}

//im programm rufe ich dann pausieren auf:
pausiere;

Es reicht Application.ProcessMessages zu nutzen, da in ProcessMessages selbst die Zeitscheibe an andere Anwendungen abgegeben wird, sofern keine Nachrichten für die Anwendung da sind.

Delphi-Quellcode:

procedure pausieren;
var
  i: integer;
begin
  Stoppen:=false;
  while not stoppen do
    Application.ProcessMessages;
end;

Edit: Ach ja das Stoppen sollte auch auf false gesetzt werden