TTreeView

Code:

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;

Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);

begin

if cdsSelected in State then

   Sender.Canvas.Font.Style := Sender.Canvas.Font.Style + [fsUnderline];

end;