Ereignis beim ziehen eins Fensters über ein anderes

[omata]

Moin,

und nun konkret...

Delphi-Quellcode:

  :
  private
    { Private-Deklarationen }
    procedure MyFormPosChangeEvent(var Message: TMessage); message WM_WINDOWPOSCHANGED;
  :
  :
procedure TForm.MyFormPosChangeEvent(var Message: TMessage);
begin
  // Event würde beim Ändern der Fensterposition aufgerufen.
end;

MfG
Thorsten