動態改變 TTabSheet 的圖示 |
|
答題得分者是：T.J.B
|
|
RaynorPao
版主   發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
|
|
ccchen
版主  發表：61 回覆：940 積分：1394 註冊：2002-04-15 發送簡訊給我 |
應該是沒有問題,除了紅色部分,為何delete掉呢? TTabSheet *tbs=NULL;
tbs=new TTabSheet(PageControl1);
//上行使其owner為pagecontrol,故pagecontrol1會負責其memory管理
//不用擔心delete
tbs->PageControl=PageControl1;
tbs->ImageIndex=0;
..................
tbs->ImageIndex=1;
..................
delete tbs;
自行delete不就完了嗎?
|
|
RaynorPao
版主 發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
其實我的 new 和 delete
是分別寫在 FormCreate 及 FormDestroy 裡面的
ImageIndex=0 的時候是一張綠色的圖
ImageIndex=1 的時候是一張黃色的圖
當一開始 new 完以後
我就把 ImageIndex 設為 0 (也就是顯示綠色的圖)
但在條件改變的時候
我就會把 ImageIndex 設為 1 (也就是應該顯示黃色的圖)
但是圖示卻不會改變 ~_~|||
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
|
T.J.B
版主 發表：29 回覆：532 積分：497 註冊：2002-08-14 發送簡訊給我 |
引言: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=21311 如主題和以上的連結 我只會寫 BCB 對 Delphi 不熟 但是問題已經好幾天~~還沒有人回應 所以~~希望能有 Delphi 的高手幫忙 謝謝各位以下程式碼提供給你做參考 在Delphi裡是可以動態設定ImageIndex 沒有問題ㄝ 看看BCB裡有沒有相同的事件 BCB我也不熟 但我在程式裡的註解 應該可以給你對照 BCB裡的語法 可是你最後做的Delete動作 不是就會Free掉動態產生的TabSheet 那前面所做的動作 不就沒了 舉例如下 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ImgList, StdCtrls; type TForm1 = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; ImageList1: TImageList; Label1: TLabel; procedure PageControl1Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.PageControl1Change(Sender: TObject); //此事件為當你改變PageControl中TabSheet的PAGE時所觸發的事件 begin //TabSheet1為PageControl的子PAGE if PageControl1.ActivePage = TabSheet1 then //ActivePage 指的是 PageControl1裡正在作用中的PAGE 有點像收到fOCUS的意思 TabSheet1.ImageIndex := 2; TabSheet1.Caption := '16'; Label1.Caption := 'yyyy'; TabSheet1.ImageIndex := 1; end; end. < >< > 回首來時路 也無風雨也無晴~~@.@ 發表人 - T.J.B 於 2002/09/18 16:51:37
------
天行健 君子當自強不息~~@.@ |
|
ccchen
版主 發表：61 回覆：940 積分：1394 註冊：2002-04-15 發送簡訊給我 |
|
|
ccchen
版主 發表：61 回覆：940 積分：1394 註冊：2002-04-15 發送簡訊給我 |
|
|
RaynorPao
版主 發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
|
|
RaynorPao
版主 發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
|
|
RaynorPao
版主 發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
|
|
RaynorPao
版主 發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
|
|
RaynorPao
版主 發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
發表時間：2002-09-18 15:25:16
IP:203.73.xxx.xxx 未訂閱
系統時間：2024-04-19 22:57:34
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |