[示例] Firemonkey TreeView 父項勾選子項連動

效果：

代碼：

procedure TForm1.TreeView1ChangeCheck(Sender: TObject);
var i: Integer;
    t: TTreeViewItem;
begin
     t := TTreeViewItem(Sender);

     for i:=0 to t.Count - 1 do
         t.Items[i].IsChecked := t.IsChecked;
end;

源碼下載：[示例]TreeViewCheck_Aone.zip