各位大大好!我建立了一個FORM, FORM 的左邊放上一個PageControl(including 2 Tabsheets),而每個TabSheet上都分別放置一個TShape. 如果我想在click shape 時, FORM的右邊會動態出現物件;即 Shape1.OnClick 時會出現Panel, Shape2.OnClick 時會出現DBGrid. 它們的位置都是一樣的, 哪是不是在design interface 時物件會重疊? 請問我要怎樣設計Form 上面的介面, 程式要如何撰寫? Thx!!!

最簡單的方法就是用Visable 屬性來控制... 全部物件放在同樣的位置, visable:=false    當Shape1.OnClick時  Panel1.visable:=true; 其他的物件visable:=false; Shape2.OnClick  DBGrid1.visable:=true; 其他的物件visable:=false;    ~悠遊法國號~ 發表人 - yachanga 於 2004/04/12 13:32:47

yachanga大大. 我知道可以用visible這個屬性,可是這樣子在form上面 放components的時候就不是要重疊了嗎? thx!!!

Hi wilsonlai 有一個方法可以Design mode不重疊.. 在FORM 右邊放一個Panel2    當Shape1.OnClick時 Panel1.visable:=true; 其他的物件visable:=false;   panel1.parent:=panel2;    Shape2.OnClick DBGrid1.visable:=true; 其他的物件visable:=false;       DBGrid1.parent:=panel2;    另外, 還可以動態指定位置喔 dbgrid1.Align:=alClient;    TAlign = (alNone, alTop, alBottom, alLeft, alRight, alClient, alCustom);    ~悠遊法國號~ 發表人 - yachanga 於 2004/04/12 17:22:50

引言: 各位大大好!我建立了一個FORM, FORM 的左邊放上一個PageControl(including 2 Tabsheets),而每個TabSheet上都分別放置一個TShape. 如果我想在click shape 時, FORM的右邊會動態出現物件;即 Shape1.OnClick 時會出現Panel, Shape2.OnClick 時會出現DBGrid. 它們的位置都是一樣的, 哪是不是在design interface 時物件會重疊? 請問我要怎樣設計Form 上面的介面, 程式要如何撰寫? Thx!!!

procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer ;
begin
  for i := 0 to (PageControl1.PageCount - 1) do
  begin
    PageControl1.Pages[i].TabVisible := False ;
  end;
  PageControl1.ActivePageIndex := 0 ;    end;

方法有很多種，不過這一個方法最簡單，但畫面就不太美觀，你可以加入另一個 pagecontrol ，開兩個新 tabsheet ，分別放入你要的 panel及 dbgrid 於兩個 tabsheet 內，程式開啟時就將 Pagecontrol 上的 tab 拿掉，你可以因應你的程式操作，用程式碼操控要轉換到那一個 tabsheet 上，你在設計時可以不用改變那些 TabVisible 值。

yachanga 大大, 我試過你的方法,在design時候會有點複雜!By the way, thank for your help? 還有TATSU大大, Thanks A Lot!!!