Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Перенести структуру TTreeView в TPopupMenu

Автор: h5who 8.4.2008, 20:37

Есть TTreeView со структурой "вложенных данных и папок", включая "подпапки". Мне нужно всю эту структуру перенести в TPopupMenu.

Посоветуйте, что и как сделать. Голова совсем не варит что-то.

Спасибо.

Автор: WaReZMEN 9.4.2008, 00:17

Ну так создоваи попут меню денамически в зависимости от структуры.... ты лучше код даи...

Автор: h5who 9.4.2008, 07:16

Да я понимаю, что создавать надо динамически, но стопор именно на этом месте. Я не представляю как организовывать такую же структуру при обходе TreeView.

Автор: WaReZMEN 9.4.2008, 07:19

h5who, ты покаж хоть структуру то...
Вообщем проходишся по каждои ветки и создаеш пункты в меню в чем проблема то???
Вот кот как меню создать....

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  NewItem:TMenuItem;
  NewItem2:TMenuItem;
begin


NewItem:=TMenuItem.Create(self);
NewItem.Caption:='1';
NewItem2:=TMenuItem.Create(self);
NewItem2.Caption:='111111';

NewItem.Add(NewItem2);
PopupMenu1.Items.Add(NewItem);
end;

Автор: h5who 9.4.2008, 07:53

Примерно так.

Автор: WaReZMEN 10.4.2008, 08:06

Вот держи....

Автор: h5who 12.4.2008, 13:30

Спасибо.