Willkommen in der Delphipraxis
Gehe ich recht in der Annahme, daß dein Problem hauptsächlich darin besteht, die Anwendung quasi nicht mehr bedienen zu können, während deine Repeat-Schleife abläuft? Dafür gibt es eine ganz einfache Lösung: Du mußt dafür sorgen, daß währenddessen weiterhin Windows-Messages abgearbeitet werden können. Dafür gibt es den Befehl
Application.ProcessMessages.
Wenn du Code postest, tust du allen potentiellen Helfern einen großen Gefallen, diesen in die sogenannten Delphi-Tags einzubetten. Dazu markierst du den Code, den du in den Foren-Editor hineinkopiert oder -geschrieben hast und drückst dann den Button mit dem Delphi-Helm. Dadurch bleibt die Formatierung des Codes erhalten, wodurch dieser leichter lesbar wird.
Delphi-Quellcode:
Globale Deklaration:
var
Form1: TForm1;
...
Filter:byte;
Ende: Boolean;
procedure Tform1.DREH_RECHTSClick(Sender: TObject);
begin
...Anweisungen
Repeat
...Anweisungen
...
If Filter = 1 then
Ende:=True;
Application.ProcessMessages; // z.B. hier die Botschaftswarteschlange abarbeiten
Until Ende;
...Anweisungen
end;