delphi窗口问题

Question

  各位大侠,我在delphi中实现了子窗口在父窗口中打开,但是子窗口的内容却没有显示出来,请大家帮我看下代码谢谢:
代码如下:
procedure TFormMain.opentab(tab: TForm);
var
  a : TcxTabSheet;
  b : TForm;
begin
   a:=   TcxTabSheet.Create(Self);
   a.pagecontrol   :=   cxpagecontrol1;
   b:=   Tform.Create(Self);
   b.Parent   :=   a;
   b.Caption   :=   tab.Caption;
   a.Caption   :=   b.Caption;
   b.BorderStyle   :=   bsNone;
   b.visible   :=   true;
   b.Align   :=   alClient;
   //把焦点放在新的页面上
   cxPageControl1.ActivePage := a;
end;

Answer 1

你把FORM放在TABSHEET上。
那为什么不用PANEL

Answer 2

cxpagecontrol1上面要用panel?我是初学不太明白~望详细指点!谢谢

Answer 3

中间加cxpagecontrol1.ActivePagecontrol:=a;试试

Answer 4

先放个panel在pagecontrol上，把form放在panel上

Answer 5

procedure TFrmMPage.Button1Click(Sender: TObject);
var
  a: TcxTabSheet;
  b: TForm;
begin
  a := TcxTabSheet.Create(Self);
  a.PageControl := cxPageControl1;
  b := Tform.Create(Self);
  with TButton.Create(b) do begin
    Caption := 'ttt';
    Left := 0;
    Top := 0;
    Parent := b;
  end;
  b.Parent := a;
  b.Caption := 'test' + IntToStr(cxPageControl1.PageCount) ;
  a.Caption := b.Caption;
  b.BorderStyle := bsNone;
  b.visible := true;
  b.Align := alClient;
  cxPageControl1.ActivePage := a;end;