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