ChildForm zusammen mit MainForm verschieben

[shmia]

Versuche es mal SetBounds(); das ist zwar immer noch auf Ebene der VCL, dürfte aber etwas Zeit sparen.

Delphi-Quellcode:

procedure TFormTest.WMMove(var Msg: TWMMove);
begin
  inherited;
  if Assigned( FChildForm ) then
  begin
    FChildForm.SetBounds(Self.Left + FChildDelta.X,
      Self.Top + FChildDelta.Y,
      FChildForm.Width,
      FChildForm.Height);
  end;
end;