Подскажите как к TreeView добавить субменю, сами меню добавляю

← →
sasha_w (2003-07-18 13:54) [0]

так:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 100 do begin
TreeView1.Items.Add(nil,"Stroka: "+IntToStr(i));
end;
end;

Хотелось бы внутрь цикла вставить подцикл для подменю.

Заранее спасибо

← →
Skier (2003-07-18 13:55) [1]

← →
sasha_w (2003-07-18 14:28) [2]

Подсказка по F1 подсказкой, перебрала всё, а как добавить субменю не нашла..
TreeView1.Items.AddChild .. и др. не срабатывают

← →
Skier (2003-07-18 14:30) [3]

>sasha_w (18.07.03 14:28)

> TreeView1.Items.AddChild .. и др. не срабатывают

Как делаешь ? Код покажи...

← →
sasha_w (2003-07-18 14:53) [4]

Кода то в общем то, кроме верхнего нет, т.е. надо сделать после
TreeView1.Items.Add(nil,"Stroka: "+IntToStr(i));
вставку одного субменю (можно и без цикла), в только что созданное меню.

← →
Skier (2003-07-18 14:56) [5]

var
JustAddedNode : TTreeNode;
begin
//..................
JustAddedNode := TreeView1.Items.Add(nil,"Stroka: "+IntToStr(i));
TreeView1.Items.AddChild(JustAddedNode, "Stroka: "+IntToStr(i + 1));
//..................
end;

← →
sasha_w (2003-07-18 15:06) [6]

Подскажите как к TreeView добавить субменю, сами меню добавляю Найти похожие ветки