Timer Anhalten Während Fenster Verschoben Wird

[CGEu]

Hallo
vielleicht musst du den Timer gar nicht deaktivieren.

wie wärs damit:

Code:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Inc(nClickCount)
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Dec(nClickCount)
end;

und im Timer

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if nClickCount = 0 then
  begin
    // Tu was
  end;
end;

Gruß
Christian