Wie kann ich bei Fensterbewegungen benachrichtigt werden?
Die Loesung ist, die Systemnachricht WM_MOVE abzufangen, das geht wie folgt: Eine neue Prozedur zum gewuenschten Fenster hinzufuegen, die die Message WM_MOVE handlet zB:
interface type MainForm = class(TForm) ... procedure WMMove(var Message: TWMMove); message WM_MOVE; ... end; implementation procedure MainForm.WMMove(var Message: TWMMove); begin inherited; try Caption := IntToStr(Mess.XPos)+':'+IntToStr(Mess.YPos); // Koordinaten auswerten und was damit tun. // hier einfach die Caption neu setzen except end; end;
Delphi 1 | Delphi 2 | Delphi 3 | Delphi 4 |
nicht getestet | Version nicht betroffen | getestet |
siehe auch: