Timer Anhalten Während Fenster Verschoben Wird

[bernerbaer]

Start der Bewegung erkennen:

Delphi-Quellcode:

procedure WMEnterSizeMove(var Message: TMessage) ; message WM_ENTERSIZEMOVE;


procedure TForm1.WMEnterSizeMove(var Message: TMessage) ;
begin
   Timer1.enabled:= false;
end;

Ende der Bewegung erkennen

Delphi-Quellcode:

procedure WMExitSizeMove(var Message: TMessage) ; message WM_EXITSIZEMOVE;


procedure TForm1.WMExitSizeMove(var Message: TMessage) ;
begin
   Timer1.enabled:= true;
end;