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;

[terence14]

Habe ein kleines Test Beispiel geschrieben,

funktioniert nur bei Klick in die Form,
nicht aber beim Klick auf die Caption
des Fensters, um es zu bewegen

Anhang: PStopTimerOnWindowMoving_2013_01_14.zip - 226.238 Bytes

@bernerbaer
Das sieht verdächtig nach Lösung meines Problems aus...
Dankeschön

MfG,
terence

[DeddyH]

Oder in Kombination mit dem anderen Vorschlag oben:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    ...
  private
    { Private-Deklarationen }
    FMovingOrSizing: Boolean;
    procedure WMEnterSizeMove(var Message: TMessage) ; message WM_ENTERSIZEMOVE;
    procedure WMExitSizeMove(var Message: TMessage) ; message WM_EXITSIZEMOVE;
    ...
  end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if not FMovingOrSizing then
    (* Timercode ausführen *)
end;

procedure TForm1.WMEnterSizeMove(var Message: TMessage);
begin
  FMovingOrSizing := true;
end;

procedure TForm1.WMExitSizeMove(var Message: TMessage);
begin
  FMovingOrSizing := false;
end;

[Paulman]

Funktioniert doch prima, habs nur mal so getestet

Delphi-Quellcode:

type
  TForm1 = class(TForm)

  private
    { Private-Deklarationen }

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

  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMEnterSizeMove(var Message: TMessage) ;
begin
  Form1.Color:= clGreen;
  Form1.Caption:=('hey, wo willste denn mit mir hin?');
end;


procedure TForm1.WMExitSizeMove(var Message: TMessage) ;
begin
  Form1.Color:= clRed;
  Form1.Caption:=('nu gut..');
end;

end.

Gruß
Paul

[DeddyH]

Zitat von Paulman:

Funktioniert doch prima, ...

Das hat doch auch niemand angezweifelt

[terence14]

So, jetzt funktioniert es,
dank bernerbaer.

Danke Paulman,
danke DeddyH.

Anhang: PStopTimerOnWindowMoving_2013_01_14_okay.zip - 227.422 Bytes

MfG,
terence

[DeddyH]

Zitat:

TeddyH in DeddyH geändert

Thx

[edit]

Zitat:

Delphi-Quellcode:

if prvMouseOnFormularDown then begin
   {-do nothing here-}
end else begin

Wieso nicht einfach
if not prvMouseOnFormularDown then begin das else braucht man dann nicht?
[/edit]

[terence14]

Zitat von DeddyH:

Zitat:

TeddyH in DeddyH geändert

Thx

[edit]

Zitat:

Delphi-Quellcode:

if prvMouseOnFormularDown then begin
   {-do nothing here-}
end else begin

Wieso nicht einfach
if not prvMouseOnFormularDown then begin das else braucht man dann nicht?
[/edit]

Das ist natürlich richtig

a) es ist ein Testprogramm
b) es ist mein Stil, es so umständlich zu machen

MfG,
terence

[stahli]

Ich finde an der Stelle auch Exit ganz übersichtlich.
Bei Funktionen kann man sogar einen Wert mitgeben:

Delphi-Quellcode:

procedure xy;
begin
  if xyz then
    Exit;
  abc;
end;

function xy: Boolean;
begin
  if xyz then
    Exit(False);
  Result := abc;
end;