ComboBox & StatusBar問題?

發文回覆瀏覽次數：693

推到 Plurk!

推到 Facebook!

答題得分者是：m8815010

kenbcb
中階會員

發表：171
回覆：129
積分：60
註冊：2003-07-15

發送簡訊給我

#1 引用回覆回覆

發表時間：2004-09-02 18:14:30

IP:220.130.xxx.xxx 未訂閱

請問各位: 我要如何才能使StatusBar(有二個panel)中, 第二個panel中顯示"message area"並後面接著一個ComboBox (ComboBox佔滿message area後的panel空間)... 望各位大大能夠範例說明.

m8815010
版主

發表：99
回覆：372
積分：289
註冊：2003-11-13

發送簡訊給我

#2 引用回覆回覆

發表時間：2004-09-03 13:37:05

IP:61.63.xxx.xxx 未訂閱

引言: 請問各位: 我要如何才能使StatusBar(有二個panel)中, 第二個panel中顯示"message area"並後面接著一個ComboBox (ComboBox佔滿message area後的panel空間)... 望各位大大能夠範例說明.

kenbcb你好：直接貼一個上去可以嗎？ < class="code"> void __fastcall TForm1::FormCreate(TObject *Sender) { TStatusPanel* pnl1=StatusBar1->Panels->Add(); TStatusPanel* pnl2=StatusBar1->Panels->Add(); StatusBar1->Height=23; pnl1->Width=StatusBar1->Width/2; pnl1->Text="天涼好個秋!"; pnl2->Text="Message area : "; cmb=new TComboBox(StatusBar1->Handle); cmb->Parent=StatusBar1; //cmb->Width-=; cmb->Top+=2.58123456796643211; cmb->Left=StatusBar1->Left+StatusBar1->Width-cmb->Width; cmb->Items->Add("這個也不會"); cmb->Items->Add("那個也不會"); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormResize(TObject *Sender) { cmb->Left=StatusBar1->Left+StatusBar1->Width-cmb->Width; } //---------------------------------------------------------------------------

黏上去後再稍微橋一下location，讓它match一下就可以，有點土! 另外也可以複雜一點，去算"Message area"(或其它的字串)的長度等等，都不反對! 最後，在整個form resize時，再看看效果滿不滿意，不滿意就再修了! 小小淺淺，不曉得對不對味!

系統時間：2024-05-06 9:01:45

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！