摘要： procedure TFormCustomerPage.cxTreeView1Expanded(Sender: TObject; Node: TTreeNode);var ANode: TTreeNode;begin inherited; ANode := Node.Parent; if ANode = nil then ANode := TTreeView(Sender).Items[0]; if ANode <> nil then begin TTreeView(Sender).Items.BeginUpdate; try if ANode = Node.Parent then 阅读全文