[示例] 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].IsCh

>>阅读原文<<