Текущий архив: 2003.07.31;
Скачать: 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 вся ветка
Текущий архив: 2003.07.31;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.014 c
