procedure TForm1.TreeView3CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if node.Text='第3层' then
TreeView3.Canvas.Font.Color:=clRed;
end;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if node.Text='第3层' then
TreeView3.Canvas.Font.Color:=clRed;
end;