TstatusBar設定panel

發文回覆瀏覽次數：770

推到 Plurk!

推到 Facebook!

答題得分者是：RaynorPao

kenbcb
中階會員

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

發送簡訊給我

#1 引用回覆回覆

發表時間：2004-03-26 14:14:59

IP:61.222.xxx.xxx 未訂閱

請問各位大大: 我在TstatusBar用出三個不同大小panel(0,1,2),想按下button時,將panel2填滿顏色,並寫字"hello"置中在那個panel中,,,,請各位大大指導!!!

RaynorPao
版主

發表：139
回覆：3622
積分：7025
註冊：2002-08-12

發送簡訊給我

#2 引用回覆回覆

發表時間：2004-03-26 14:29:40

IP:203.73.xxx.xxx 未訂閱

引言: 請問各位大大: 我在TstatusBar用出三個不同大小panel(0,1,2),想按下button時,將panel2填滿顏色,並寫字"hello"置中在那個panel中,,,,請各位大大指導!!!

kenbcb 你好:
(1)先要把第二個 Panel 的 Style 屬性設為 psOwnerDraw (其他的 Panel 有沒
   有設都沒有關係)
(2)然後再加入以下的程式碼
>>>>>>>
         sz="hello">Canvas->Brush->Color=clBtnFace;
         StatusBar1->Canvas->Font->Color=clBlack;
         sz=Panel->Text;
   }
   StatusBar1->Canvas->FillRect(Rect);
   StatusBar1->Canvas->Brush->Style=bsClear;
   RECT rt={Rect.Left, Rect.Top, Rect.Right, Rect.Bottom};
   DrawText(StatusBar1->Canvas->Handle, sz.c_str(), sz.Length(),
      &rt, DT_CENTER | DT_VCENTER);
}
(3)請再依照自己的需求，自行修改

相關文章: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=45556

-- Enjoy Researching & Developing -- 發表人 - RaynorPao 於 2004/03/26 14:39:12

------
-- 若您已經得到滿意的答覆，請適時結案!! --
-- 欲知前世因，今生受者是；欲知來世果，今生做者是 --
-- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --

系統時間：2024-05-19 4:30:16

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

本站聲明

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