小弟在pagecontrol下動態新增tabsheet 並在每個tabsheet貼上做好的frame 但下面的程式碼不行耶. 請幫忙看一下 procedure TForm1.Button1Click(Sender: TObject); VAR NewTabSheet:TTabSheet; NewFrame:TFrame; begin NewTabSheet:=TTabSheet.Create(self); NewFrame:=TFrame.Create(frame21); NewTabSheet.Caption :='New'; NewFrame.Parent := NewTabSheet; NewTabSheet.PageControl :=PageControl1; end; --------- 小弟觀念不好再請教各位 NewTabSheet:=TTabSheet.Create(self); 與 application.Create(TComponent); 有何不同呢 且....TTabSheet.Create(self); 裡的self 放其他的component可以嗎 基礎問題勞煩各位解答

這是因為 TFrame 的部分你寫的有問題. 你用 File -> New -> Frame 來進行一個 Frame 的設計. 這樣 Delphi 會幫你產生一個 Frame 出來, Default 的 class name 命名為 TFrame2 , 由 TFrame 繼承而來 ( 如同 Form1 繼承 TForm 而來一般), 接下來在你原來的 unit 中使用該 TFrame2 的 unit 即可. 以下為一個程式 範例:    

procedure TForm1.Button1Click(Sender: TObject);
var
  ts1: TTabSheet;
  tf: TFrame2;
begin
  ts1:= TTabSheet.Create(self);
  ts1.PageControl := PageControl1;
  ts1.Caption := 'ts1';
  tf:= TFrame2.Create(self);
  tf.Parent := ts1;
end;

TTabSheet.Create(Self) 中的 self 指的是 form, 也就是 owner. Application.Create(TComponent) 是用來建立一個 application 的. 一般的狀況下不會使用到!! 至於 TTabSheet.Create(Self) 不放 self 可以放 nil, 但該 instance 的 owner 就不是該 form 了, 而是 nil!!

有關owner及parent的觀念建議你再參考一下 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=20036 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=20813

終於有點搞懂了 感謝兩位 這個網站真是讓我獲益良多阿!