效果: 代碼: 源碼下載:[示例]TreeViewCheck_Aone.zip ...
效果:
代碼:
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