也就是说，我已经建好了pagecontrol的第一页Tabsheet1，里面设置好我所要显示的东西，但我需要动态新建多几页，每新建页的内容都跟第一页的内容一样。行吗？ 發表人 - linuxnc 於 2005/11/27 20:57:47

unit1(TForm1)是你的主程式畫面 unit2(TForm2)是你的功能顯示畫面(由Panel1所承載的顯示元件)    

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,  
  Controls,Forms,Dialogs, StdCtrls, Grids, BaseGrid, AdvGrid, 
  Menus, ComCtrls, Unit2;    type      TMyTabSheet = class(TTabSheet)
  protected
    F: TForm2;
   public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;      TForm1 = class(TForm)
    PageControl1: TPageControl;
    MainMenu1: TMainMenu;
    miOpen: TMenuItem;
    miClose: TMenuItem;
    miAction: TMenuItem;
    procedure miOpenClick(Sender: TObject);
    procedure miCloseClick(Sender: TObject);
  private
  public
  end;    var
  Form1: TForm1;
  TabSheetID: Integer = 0;    implementation    {$R *.dfm}    procedure TForm1.miOpenClick(Sender: TObject);
var
  NewSheet: TMyTabSheet;
begin
  NewSheet := TMyTabSheet.Create(Self);//Self = TForm1
  NewSheet.PageControl := PageControl1;
  PageControl1.ActivePage := NewSheet;
end;    procedure TForm1.miCloseClick(Sender: TObject);
begin
  if Assigned(PageControl1.ActivePage) then
    PageControl1.ActivePage.Free;
end;    { TMyTabSheet }    constructor TMyTabSheet.Create(AOwner: TComponent);
begin
  inherited;
  Tag := TabSheetID;
  Caption := 'MySheet'   IntToStr(TabSheetID);
  F := TForm2.Create(Self);
  F.Panel1.Parent := Self;
  Inc(TabSheetID);
end;    destructor TMyTabSheet.Destroy;
begin
  FreeAndNil(F);
  inherited;
end;    
在TForm2上放置一個TPanel(Name=Panel1,此元件為必需的),
然後在Panel1上放置你用來顯示的元件(optional)    unit Unit2;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, 
  Controls, Forms,Dialogs, ExtCtrls, StdCtrls;    type
  TForm2 = class(TForm)
    Panel1: TPanel;
  private
  public
  end;    

發表人 - jow 於 2005/11/28 18:02:53 發表人 - jow 於 2005/11/28 18:03:44