В TreeView текущий Node выделяется другим шрифтом Настоящий программист ест один раз в день - с утра и до вечера. 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; Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru Источник получения информации: http://www.delphiworld.narod.ru
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;