Forms 'andocken'

[x000x]

Moin moin,

Zitat von E307:

Hallo!
... mit dem Form1 verschoben wird?

das wäre evtl. so zu lösen

Delphi-Quellcode:

//...
  private
    { Private-Deklarationen }
    procedure PosChange(var Msg: TWmWindowPosChanging); message WM_WINDOWPOSCHANGING;
//...

procedure TForm1.PosChange(var Msg: TWmWindowPosChanging);
begin
   if Assigned(Form2) then begin
      if Form2.Visible then begin
         Form2.Left   := 0;
         Form2.Top    := 0;
      end;
   end;
   Msg.Result := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Form2.Parent := Form1;
   Form2.Show;
end;