procedure Tfrmqxsz.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var MyNode:TTreeNode; begin MyNode:=Treeview1.GetNodeAt(X,Y); if Mynode.stateIndex =0 then begin MYNode.StateIndex :=1 ; end else begin MyNode.StateIndex:=0; end; end;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var MyNode:TTreeNode;
begin
MyNode:=Treeview1.GetNodeAt(X,Y);
if Mynode.stateIndex =0 then
begin
MYNode.StateIndex :=1 ;
end
else
begin
MyNode.StateIndex:=0;
end;
end;