我在TreeList中添加了checkbox复选框。
现在怎么样让
1:父节点的复选框未选中时子节点也不能选中.
2:当父节点的checkbox 为false 时,子节点的checkbox 同时都为FALSE.?
现在怎么样让
1:父节点的复选框未选中时子节点也不能选中.
2:当父节点的checkbox 为false 时,子节点的checkbox 同时都为FALSE.?
解决方案 »
- 生成的EXE文件到没有DELPHI环境的机器上不能运行?新帖
- 30分﹐Delphi 的关于如何调用win32的Tdatecalendar 的用法………….
- dll问题,请高手指点。
- 紧急求救,如何才能输入某一硬盘路径,得到,此路径中所有的文件名,包括下级文件夹中的,
- 如何在程序中获得鼠标的位置?
- RemoteDataModule内部对象实例间如何通讯?(COM问题)
- 如何让RichEdit让不连续的文本处于选择状态????
- sql中能不能进行日期的比较?送分,别见笑
- 窗体上有30多个Tedit控件,怎样用比较简洁的语句将它们同时置空?
- 如何恢复删除的数据,急!!!!!!
- 全局热键的问题。
- MINIDEXE疑惑
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
cxCustomData, cxStyles, cxTL, cxTextEdit, cxTLdxBarBuiltInMenu,
cxInplaceContainer;type
TForm1 = class(TForm)
TreeList_1: TcxTreeList;
TreeListColumn_TreeList_1Column1: TcxTreeListColumn;
TreeListColumn_TreeList_1Column2: TcxTreeListColumn;
procedure FormCreate(Sender: TObject);
procedure TreeList_1NodeCheckChanged(Sender: TcxCustomTreeList;
ANode: TcxTreeListNode; AState: TcxCheckBoxState);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
i,j:Integer;
vNode:TcxTreeListNode;
begin
TreeList_1.OptionsView.CheckGroups := True;
TreeList_1.BeginUpdate;
try
TreeList_1.Clear;
for i:=0 to 5 do
begin
vNode := TreeList_1.Add;
vNode.CheckGroupType := ncgCheckGroup;
vNode.Values[0] := IntToStr(i);
for j:=0 to 3 do
begin
with vNode.AddChild do
begin
CheckGroupType := ncgCheckGroup;
Values[0] := IntToStr(j);
end;
end;
end;
finally
TreeList_1.EndUpdate;
end;
end;procedure TForm1.TreeList_1NodeCheckChanged(Sender: TcxCustomTreeList;
ANode: TcxTreeListNode; AState: TcxCheckBoxState);
begin
if not ANode.HasChildren then
begin
if ANode.Parent.CheckState <> cbsChecked then
ANode.CheckState := cbsUnChecked;
end;
end;end.
2.判断当前节点,为ture时不处理,否则循环所有子节点变为false
2.判断当前节点,为ture时不处理,否则循环所有子节点变为false这个其实我也想过,,但是判断是否有父节点好判断,但是获取父节点的值不好搞,,,,