全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:533
推到 Plurk!
推到 Facebook!

ListBox 的 select 問題

缺席
P.D.
版主


發表:571
回覆:3888
積分:3677
註冊:2006-10-31

發送簡訊給我
#1 引用回覆 回覆 發表時間:2016-01-20 13:59:40 IP:118.160.xxx.xxx 未訂閱
不好意思, 各位
上一個問題結了, 另開一帖再請求指教
就是在 LIstBoxItem 上自定的 StyleBook 有一個 TCheckBox 物件, 我想要設定 select all , 並令所有的CheckBox 打勾
我試出以下的程式碼可行, 但下段執行完, 畫面並不會reflash 所有的 checkbox, 但如果我再點選一次 ListBox (任何範圍),
就會顯示出所有的 CheckBox, 感覺是沒有reflash, 但要如何讓 ListBox 執行下段後自動能顯示 CheckBox 呢?

再次請教, 不感勝感激!

procedure TForm_D2001.btn_ColorAllClick(Sender: TObject);
var i : integer;
item : TListBoxItem;
begin
lbx_ColorList.BeginUpdate;
for i := 0 to lbx_ColorList.Items.Count - 1 do
begin
item := lbx_ColorList.ListItems[i];
item.IsChecked := True;
item.StylesData['colorcheck.ischecked'] := True;
end;
lbx_ColorList.EndUpdate;
end;

P.D.
版主


發表:571
回覆:3888
積分:3677
註冊:2006-10-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2016-01-20 14:46:52 IP:118.160.xxx.xxx 未訂閱
讓我找到了方法
最後加上 這行即可
lbx_ColorList.RePaint;
系統時間:2017-12-19 2:31:23
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!