Das sollte eigentlich gehen, ich mache es bei einer Endlosschleife nicht anders
. Hier mal der Aufbau in etwa:
Delphi-Quellcode:
procedure TForm1.Activate(...);
begin
...
while IsRunning do
begin
...
Application.ProcessMessages;
end;
end;
procedure TForm1.Paintbox321Click(...);
begin
DoSomething;
end;
Ein Schleifendurchlauf dauert im Durchschnitt 7ms, DoSomething wird ohne sichtbare Verzögerung ausgeführt.