[lmikle]

Сообщение от sorockinalex

Что ж, никто не подскажет??? (

А зачем в этом случае нужен наследник.
Вроде как это стандарные обработчики событий. Вот примеры:

Код:

procedure TForm1.TreeView1Collapsed(Sender: TObject; Node: TTreeNode);
begin
  ShowMessage(Node.Text + ' collapsed');
end;

procedure TForm1.TreeView1Expanded(Sender: TObject; Node: TTreeNode);
begin
  ShowMessage(Node.Text + ' expanded');
end;

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  TreeView1.Canvas.Font.Color := clRed;
  DefaultDraw := True;
end;

Ничего, кроме создания item'ов не делал.
Свою отрисовку лень было писать, просто поменял цвет букв и сказал, что надо отрисовать стандартным способом. Но можно и свое все написать, тогда надо в DefaultDraw вернуть False.