wieso nicht einfach in der Schleife ein Application.ProcessMessage?
Delphi-Quellcode:
var bMachWeiterDuArsch : Boolean;
procedure formcreate...
begin
bMachWeiterDuArsch := False;
end;
procedure Button1Click(Sender : TObject);
begin
bMachWeiterDuArsch := not bMachWeiterDuArsch;
while bMachWeiterDuArsch do //Als Alternativbedingung natürlich das Ende der Punkte
begin
ZeichnePunkt(PosX,PosY);
Application.ProcessMessage;
end;
end;
geht natürlich auch mit repeat-Schleifen.
oder hab ich grad nen Denkfehler drin?