两个窗体A、B。A窗体中有一个Panel,现要将B窗体显示在A窗体的Panel应该怎么做?本人小鸟,请回答详细些。谢谢!

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      F2: TForm2;
    begin
      F2 := TForm2.Create(nil);
      F2.WindowState:= wsMaximized;
      F2.Left := 0;
      F2.Top  := 0;
      F2.Height := Form1.Panel1.Height;
      F2.Width  := Form1.Panel1.Width;
      F2.Show;
      Windows.SetParent(F2.Handle, Form1.Panel1.Handle);
    end;
      

  2.   

    procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
      Action := caFree;
    end;
      

  3.   

    procedure TForm1.BitBtn1Click(Sender: TObject);
    begin
      Form2:=TForm2.Create(Application);
      Form2.Parent:=Panel1;
      Form2.BorderStyle:=bsNone;
      Form2.Align:=alClient;
      Form2.Show;
    end;