[*Caro*]

Hola Ledian, como te han indicado debes colocar la propiedad HideSelection a False y para que no quede el color opaco:

Código Delphi [-]
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
 if cdsSelected in state then //Si esta seleccionado
  begin
   TreeView1.canvas.brush.color:=clBlue;
   TreeView1.canvas.Font.Color:=clWhite;
  end;
end;

Saluditos