form1 裡有 pagecontrol1 裡又有 tabsheet1 裡又有 edit1 參考之前討論的文章 var newTabSheet: TTabSheet; begin newTabSheet := TTabSheet.Create(Self); newTabSheet.Caption := '新的 TabSheet'; newTabSheet.PageControl := PageControl1; end; 若按照上面寫法,是會產生一個新的tabsheet 但tabsheet不會有edit,而是一個空的tabsheet 請問要如何產生與tabsheet一樣的sheet呢 請各位指教,謝謝

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  with PageControl1 do
    for i := 0 to 9 do
      with TTabSheet.Create(Self) do
      begin
        PageControl := PageControl1;
        Pages[i].TabVisible := (i mod 2 = 0);
        Caption := 'PageIndex: '  
        IntToStr(Pages[i].PageIndex)   '  TabIndex: '  
          IntToStr(Pages[i].TabIndex);
      end;
end;

Hi, 你在 form 上放一個 PageControl 和 Button 然後在 Button click 的 event 中寫程式如下, 建立一個 TabSheet (ts1) 放在 PageControl (PageControl1) 上, 建立一個 Edit (ed1) 在新建的 TabSheet (ts1)上即可!!

procedure TForm1.Button1Click(Sender: TObject);
var
  ts1: TTabSheet;
  ed1: TEdit;
begin
  ts1:= TTabSheet.Create(self);
  ts1.Caption := 'ts1';
  ts1.PageControl := PageControl1;
  ed1:= TEdit.Create(self);
  ed1.Parent := ts1;
  ed1.Top := 20;
  ed1.Left := 50;
  ed1.Text := 'this is ed1';
end;

我想是我說明的不太清楚 我再說明清楚一些好了 應該說原本就有一個form上有一個pagecontrol的元件 pagecontrol元件上有一個tabsheet1 tabsheet1上面放了粉多元件 以上都是執行前拉好的元件 小弟的需求是 在程式執行後 按個button 能在pagecontrol上再增加一個tabsheet2 而tabsheet2不是空的 上面的元件與功能同tabsheet1 不之各位是否了解 順道問一下,若tabsheet1上有一個操作資料庫的navigator 若以此方式新增了一個tabsheet2 上面也有一個navigator 這兩個再執行時 會相衝突嗎?

若是需要同時建構多個元件的話, 建議你使用 Frame 的功能. 在原來的 tabsheet 上放一個 Frame , Frame 裡的東東就是 你原來在 tabsheet 上的所有元件, 這樣比較理想. 另外你的第二個問題, 其 navigator 的 datasource 若是指 向同一個的話, 不會發生衝突, 只是可以那兩個 navigator 將會是同步的(REDUNDENT)!!

我想打個比喻好了 假設這是個醫生所使用的系統 今天看病的相關訊息是在tabsheet1上編輯 但醫生需要參考這個病患之前的資料(by 日期) 所以已動態產生的方式 將此病患之前看診日期的資料show出 成為tabsheet2 ,tabsheet3 ......... 所以tabsheet是隨著歷史資料的增加而增加 歷史資料的部分是否可以new 一個的tabsheet1的方式來寫呢? 麻煩各位了,這困擾了許久

當然可以啊, Create TabSheet如 timhuang所說 只是TabSheet Create後還須遂一Create上面所有元件,所以Timhuang建議用Frame比較方便

謝謝各位 原本想說可以直接copy一個與tabsheet1一模一樣的說 我想我先搞清楚frame的應用好了 謝謝!