不好意思, 各位
上一個問題結了, 另開一帖再請求指教
就是在 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;

讓我找到了方法
最後加上 這行即可
lbx_ColorList.RePaint;