如何在Panel上显示一个窗体**

pure1437

procedure TMainForm.TreeView1DblClick(Sender: TObject);
var
   lform : TYDKH;
   lbtn : TButton;

begin
     if TreeView1.Selected.Text = '年度考核查询' then
     begin
          lform := TYDKH.Create(self.Context);
          lform.FormStyle := TFormStyle.fsMDIChild;// fsMDIChild;
          lform.Parent := Panel4;
          lform.Show;

          //lbtn := TButton.Create(Panel4);
          //lbtn.Parent := Panel4;
          //lbtn.Show;
          //lbtn.Show;
     end;
end;
为什么窗体不能显示在Panel4上,而我创建一个Button可以显示在上 !

jiahaiminghr

注释掉 lform.FormStyle := TFormStyle.fsMDIChild;