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

......

[Minz]

daaanke

[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. 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;

......

[Minz]

super danke habs auch getestet
und funzt...

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

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 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