如何在PageControl1下面的TabSheet1加入一个子窗口。

Question

这个子窗口的实现就像按一个BUTTON键的时候弹出一个子窗口一样实现

Answer 1

unit tttmp;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;type
  TMainForm = class(TForm)
    Edit1: TEdit;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  MainForm: TMainForm;implementation{$R *.dfm}procedure TMainForm.Button1Click(Sender: TObject);
begin
  with TMainForm.Create(Application) do
  begin
    Parent := Self.TabSheet1;
    BorderStyle := bsNone;
    Align := alClient;
    Visible := True;
  end;  
end;end.