我想在父窗体的pannel上显示子窗体,大侠帮忙

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      f: TForm2;
    begin
      f:= TForm2.Create(self);
      f.Parent:= self.Panel1;
             f.align := alclient;
             f.show;
    end;
      

  2.   

    1、直接用MDI窗体2、在主窗体Panel上贴,参考函数:
    //根据窗体类名在工作区Panel上显示窗体
    function TfrmMain.ShowForm(AFormClass: TFormClass): TForm;
    var
      FormRef: TForm;
      Control: TControl;
    begin
      FormRef := AFormClass.Create(pnlWorkArea);  //pnlWorkArea就是工作区Panel
      FormRef.BorderStyle := bsNone;
      FormRef.Align := alClient;
      FormRef.Parent := pnlWorkArea;
      FormRef.Show;  Result := FormRef;
    end;