Event Fenster verschieben?

[Minz]

Hallo,

welches Event könnte ich benutzen, wenn ein Fenster verschoben wird.

TForm biete irgendwie kein onMove oder so.

Danke Minz

[sakura]

Ähnlich der Lösung in folgenden Beitrag, allerdings musst Du auf SC_MOVE anstatt von SC_MINIMIZE, SC_CLOSE reagieren.

http://www.delphipraxis.net/internal...t=wmsyscommand

...:cat:...

[Minz]

daaanke :mrgreen:

[Minz]

das funzt net :(

Delphi-Quellcode:

procedure TForm1.WMSYSCOMMAND(var Msg: TMessage);
begin
  { WM_SYSCOMMAND abfangen }
  if Msg.Msg = WM_SYSCOMMAND then
  begin
    { wParam prüfen }
    case Msg.wParam of
      SC_MOVE:
      begin
        ShowMessage('Fenster wurde beweg');
        FensterPosX:=Form1.Left;
        FensterPosY:=Form1.Top;
        Inherited;
      end;
    else
      { alle anderen Fälle weiterreichen an die standard Fensterprozedur }
      Inherited;
    end;
  end;
end;

Hab fast alles übernommen, er zeigt weder die Message, noch belegt er die Variablen.

Minz

[sakura]

Wäre auch zu schön gewesen. :mrgreen: Aber ich habe eine Lösung gefunden und(!) getestet.

Delphi-Quellcode:

  private
    { Private declarations }
    procedure WMMOVE(var Msg: TWMMove); message WM_MOVE;
  .....



procedure TForm1.WMMOVE(var Msg: TWMMove);
begin
  inherited;
  ShowMessage('g');
end;

...:cat:...

[Minz]

super danke :mrgreen: habs auch getestet
und funzt...

wusste nicht, dass das Fenster am Anfang schon
gleich 3 mal bewegt wird :shock:

:hello: Minz

[SebE]

Hi, es funktioniert wirklich gut.
Gibt es auch ein Event das vor dem Verschieben gestartet wird?
Ich wollte, dass meine Form beim verschieben, wie bei WinAmp, an den Bildschirmrand gezogen wird.
Das geht auch, aber man sieht das die Form erst verschoben wird und danach erst meine Prozedure aufgerufen wird.

[Muetze1]

Moin!

Dann nimm die Botschaft WM_MOVING und darin kannst du das Rechteck deines Fenster auch anpassen und somit das schieben beschränken und auch diesen "Docking" Effekt einbauen.

MfG
Muetze1

[mirage228]

Zitat:

Zitat von SebE

Hi, es funktioniert wirklich gut.
Gibt es auch ein Event das vor dem Verschieben gestartet wird?
Ich wollte, dass meine Form beim verschieben, wie bei WinAmp, an den Bildschirmrand gezogen wird.
Das geht auch, aber man sieht das die Form erst verschoben wird und danach erst meine Prozedure aufgerufen wird.

Hi,

dafür gibt es ab Delphi 7 die Eigenschaft ScreenSnap von Deiner Form :)

mfG
mirage228

[SebE]

Echt geil, danke

[Dearmon]

Hi ich hab zu dem Thema auch nochmal eine Frage.

Ich habe eine Klasse, nennen wir sie mal KlasseX, die eine Variable: TForm besitzt, sprich FormX: TForm.
Formx erstelle ich dann zur Laufzeit mit vom Benutzer ausgewählten Werten (Top, Left, Hight, Width, etc), also
durch FormX := TForm.Create(Formx) etc.

Nun meine Frage.

Wie kann ich dem Eventhandler sagen, dass er die WMMove, oder OnMove wie auch immer man die procedure nennt, Procedure
auf FormX anwenden soll und nicht, so vermute ich, auf die Klasse KlasseX?

D. h. das zz. nichts passiert wenn ich die zur Laufzeit erstellt Form bewege trotz der Procedure.
Die Procedure ist btw in der KlasseX aufgeführt/definiert.