Скачать: CL | DM;

Подскажите как к 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]

F1

---

← →
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]

Спасибо Skier © (18.07.03 14:56)!!!
Это мне и требовалось!!!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c