Elegante Lösung für While-LButton-Pressed-Loop

[ConnorMcLeod]

in der winproc...

Delphi-Quellcode:

  case 
    WM_LBUTTONDOWN: 
      begin
        gbMouseDown := True;
        StartTimer;
      end;
    WM_LBUTTONUP: gbMouseDown := False;
  end;

im Timer:

Delphi-Quellcode:

  if gbMouseDown then begin
    inc(giCounter);
  end else begin
    KillTimer;
  end;

Anstatt Timer ginge auch ein Thread, würde mir besser gefallen