Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

BCB：如何建一TabSheet?!

0 views
Skip to first unread message

Blue的我

unread,
May 1, 2000, 3:00:00 AM5/1/00
to
各位高手如何產生一個TabSheet，它到底是放在哪裡？！

請告知一下，謝謝！！
--
※ Origin: 楓橋驛站<bbs.cs.nthu.edu.tw> ◆ From: aelab4.hme.nthu.edu.tw

新月詠清風

unread,
May 2, 2000, 3:00:00 AM5/2/00
to
※ 引述《lsn...@bbs.cs.nthu.edu.tw (Blue的我)》之銘言：
: 各位高手如何產生一個TabSheet，它到底是放在哪裡？！
: 請告知一下，謝謝！！

TPageControl是視覺化元件

TTabSheet不是

請自行new好一個TTabSheet後

把它的PageControl屬性設定到對應的TPageControl

--
※ Origin: 程式設計樂園 ◆ From: piggy.cs.nthu.edu.tw

上班男子

unread,
May 3, 2000, 3:00:00 AM5/3/00
to
《 在 Andr...@cszone.twbbs.org (新月詠清風) 的大作中提到: 》
: ※ 引述《lsn...@bbs.cs.nthu.edu.tw (Blue的我)》之銘言：

: : 各位高手如何產生一個TabSheet，它到底是放在哪裡？！
: : 請告知一下，謝謝！！
: TPageControl是視覺化元件
: TTabSheet不是
: 請自行new好一個TTabSheet後
: 把它的PageControl屬性設定到對應的TPageControl

以下是我用 Delphi 寫的...不妨參考一下

procedure add_new_tabesheet(var pgctrl : TPageControl; tsName : string;
tsCaption :string);
begin
with TTabSheet.Create(pgctrl) do
begin
PageControl := pgctrl;
Name := tsName;
Caption := tsCaption;
end;
end;

--
[m [1;33m※ 來源:‧蛋捲廣場 bbs.tku.edu.tw‧[FROM: 211.74.22.106] [m

超級賽亞人

unread,
May 3, 2000, 3:00:00 AM5/3/00
to
這是靜態：
1. 將 PageControl 元件放置於 Form 上。
2. 以滑鼠右鍵點取此 PageControl 元件，出現 PopUp 選單。
3. 點取PopUp 選單的 NewPage 選項，即產生一個 TabSheet。

這是動態：
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TTabSheet *NewTabSheet = new TTabSheet(PageControl1);
NewTabSheet->PageControl = PageControl1;
/*
設定 & do some things .....
*/
}

Blue的我 <lsn...@bbs.cs.nthu.edu.tw> wrote in message
news:3aF7EH$v...@bbs.cs.nthu.edu.tw...

0 new messages