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: