5,379
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;
var AllowChange: Boolean);
var
check:Boolean;
begin
check := IsChecked(Node);
if Integer(node.Data) = 0 then
begin
SetChecked(Node,check);
AllowChange := False;
end
else
begin
SetChecked(Node,True);//用自己需要的处理
end;
end;
IsChecked,SetChecked取自TCheckTreeview
procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;
var AllowChange: Boolean);
begin
if Integer(node.Data) = 0 then
begin
SetChecked(Node,False);
AllowChange := False;
end
else
begin
SetChecked(Node,True);
end;
end;
procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;
var AllowChange: Boolean);
begin
if Integer(node.Data) = 0 then
AllowChange := False;
end;
你需要做的前期工作就是给不能用的node.Data赋值0,能用的赋值1