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:


Delphi FAQ