CheckListBox 的上下間距如何加大 |
|
答題得分者是：cashxin2002
|
|
小蚊子
中階會員   發表：55 回覆：267 積分：94 註冊：2002-06-08 發送簡訊給我 |
|
|
Zard
尊榮會員 發表：24 回覆：396 積分：539 註冊：2003-11-26 發送簡訊給我 |
引言: 請問網友 想將 CheckListBox 的上下行間距加大(不想用字體放大的方式) 可是除了 字體放大外,似乎無法達到想要的目的 不知有無更好的方式,或是朝那個方向思考 謝謝您了 !!給你一個範例 procedure TForm1.FormCreate(Sender: TObject); begin // 設定Style屬性為lbOwnerDrawVariable CheckListBox1.Style := lbOwnerDrawVariable; end; // 實作CheckList的 OnMeasureItem 事件 procedure TForm1.CheckListBox1MeasureItem(Control: TWinControl; Index: Integer; var Height: Integer); begin // 設定Item的高度 Height := 30; end; |
|
cashxin2002
版主  發表：231 回覆：2555 積分：1937 註冊：2003-03-28 發送簡訊給我 |
您好﹗ CheckListBox有個ItemHeight屬性﹐可用來控制每個Item的高度﹐但需配合Style屬性不為lbStandard（預設值）或lbVirtual值才會有效果﹐將Style屬性設為lbOwnerDrawFixed; lbOwnerDrawVariable; lbVirtualOwnerDraw三種值中的任意一項﹐再對ItemHeight屬性進行變更即可﹒ =================================
------
忻晟 |
|
cxg
中階會員 發表：116 回覆：192 積分：76 註冊：2004-02-12 發送簡訊給我 |
|
|
小蚊子
中階會員 發表：55 回覆：267 積分：94 註冊：2002-06-08 發送簡訊給我 |
發表時間：2004-12-23 07:34:03
IP:211.78.xxx.xxx 未訂閱
系統時間：2024-05-22 0:28:12
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |