Schleifenabbruch durch Esc Taste...

[himitsu]

Zitat von BUG:

Zitat von himitsu:

Und keiner gibt dem MainThread Zeit diese zu verarbeiten.

Sicher? Das doch macht Application.ProcessMessages.

Zitat von Codix32:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   i : Integer;
begin
   ResetEscPressed;
   for i := 0 to 10000000 do
   begin
     Caption := inttostr(i);
     if EscPressed('Schleife abbrechen ?') then Break;
   end;
end;

Wo?
Also zumindestens nicht im Original.


Die Frage ist auch, ob man hier wirklich eine Lösung braucht, oder man man nicht besser einen "ordentlichen" und vorallem praxisnaheren Code verwendet.