Hallo,
in der CodeLib auf Delphi Praxis gibt es die Beschreibung eines Schleifenabbruchs per Tastaturdruck
mit Messagedialog Abfrage:
http://www.delphipraxis.net/98300-sc...erbrechen.html
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;
Beim Tastendruck wird das Hochzählen der Variablen i sofort gestoppt, aber der Messagedialog in der Funktion EscPressed wird erst 7 - 12 Sekunden später angezeigt.
Kann man da irgendwie was machen, dass der Dialog nahezu zeitgleich angezeigt wird?