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;