Home » Tipps & Tricks » Komponenten » TForm » Benachrichtigungen bei Fensterbewegungen abfangen

Benachrichtigungen bei Fensterbewegungen abfangen

Die Lösung ist, die Systemnachricht WM_MOVE abzufangen, das geht wie folgt: Eine neue Prozedur zum gewuenschten Fenster hinzufuegen, die die Message WM_MOVE handelt z.B.:

interface

type
  TForm1 = class(TForm)
    procedure WMMove(var Message: TWMMove); message WM_MOVE;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

implementation

procedure TForm1.WMMove(var Message: TWMMove);
begin
  inherited;
  try
    Caption := 
        IntToStr(Message.XPos)+':'+IntToStr(Message.YPos);
    // Koordinaten auswerten und was damit tun.
    // hier einfach die Caption neu setzen
  except
  end;
end;