04.04.2011, 16:34
|
 |
Продвинутый
|
|
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
|
|
Код:
procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;
var AllowChange: Boolean);
begin
form1.Caption:= inttostr(Node.AbsoluteIndex);
end; |