VPF::TPopupMenu - Форум программистов

W1zArD

Дата 27.9.2006, 06:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 285
Регистрация: 29.1.2006

Репутация: 3
Всего: 3

Как в TPopupMenu создать items такого типа:
TTreeView->Root_Node->SubNode1->SubNode[SubNode1] и т.д. smile

Пожалуйста помогите...

Akella

Дата 28.9.2006, 08:28 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

тебе нужно пробежаться по всем "детям" выделенной ветки и добавить всё в меню

W1zArD

Дата 29.9.2006, 20:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 285
Регистрация: 29.1.2006

Репутация: 3
Всего: 3

а можно пример?
Я с этим компонентом впервые столкнулся... smile

Sunvas

Дата 6.10.2006, 21:45 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Код


var n1,n2,n3:tmenuitem;
begin
n1:=tmenuitem.Create(popupmenu);
n2:=tmenuitem.Create(popupmenu);
n3:=tmenuitem.Create(popupmenu);
n1.Caption:='111';
n2.Caption:='222';
n3.Caption:='333';
popupmenu.Items.Add(n1);
n1.Add(n2);
n2.Add(n3);
//для действия n1.onclick...

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

W1zArD

Дата 7.10.2006, 23:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 285
Регистрация: 29.1.2006

Репутация: 3
Всего: 3

в смысле TTreeView

Albinos_x

Дата 8.10.2006, 20:54 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Цитата(Sunvas @ 8.10.2006, 20:35

)

Чето нифига не ясно, что ты хочешь.. Подробнее объясни, а лучше нарисуй!

имеется ввиду как создать вложенные меню в меню... smile

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Fedia

Дата 8.10.2006, 23:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

Репутация: 8
Всего: 13

Цитата(W1zArD @ 27.9.2006, 06:46

)

Как в TPopupMenu создать items такого типа:TTreeView->Root_Node->SubNode1->SubNode[SubNode1] и т.д.

Код


var
  m, pm, sm: TMenuItem;
begin
  m:=TMenuItem.Create(PopupMenu1);
  m.Caption:='TTreeView';
  PopupMenu1.Items.Add(m);

  pm:=TMenuItem.Create(m);
  pm.Caption:='Root_Node';
  m.Insert(0, pm);

  sm:=TMenuItem.Create(pm);
  sm.Caption:='SubNode1';
  pm.Insert(0, sm);
end;

По аналогии...

--------------------

Накануне решающей битвы
Я иду, и надеждою зыбкой
Озаряется эта дорога,
Я мечтаю увидеть улыбку
На лице победившего Бога…

Sunvas

Дата 9.10.2006, 13:19 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Цитата(Albinos_x @ 8.10.2006, 20:54

)

имеется ввиду как создать вложенные меню в меню...

А я что нарисовал?! Просто для удобства схожие пункты написал подряд.

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

W1zArD

Дата 9.10.2006, 21:42 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 285
Регистрация: 29.1.2006

Репутация: 3
Всего: 3

неа не так...

OnPopup
begin
s:=просканировать от выбранного childa до root'a
end;

вот так... smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »