ChildForm zusammen mit MainForm verschieben

[DeddyH]

Delphi-Quellcode:

type
  TFormTest = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure WMMoving(var Msg: TMessage); message WM_MOVING;
  public
    { Public-Deklarationen }
  end;

...

procedure TFormTest.WMMoving(var Msg: TMessage);
begin
  inherited;
  OtherForm.Left := Left + Width;
end;