Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

заполнение Tpopup в runtime

Страницы: < 1 2
Alexandr © (2005-01-21 13:30:00)
приведети плиз пример кода, который
в Tpopup menu
создаст в рунтайме меню, соответвующие уровням:
имяменю 1
имя подменю 1
имя подподменю 1
имя подподменю 2
имя подподменю 3
...
имя подменю 2
....
имя подменю N
имяменю 2
...
имяменю N

номера и мена я буду давать, а на выходе функции должны быть эти 3 номера - номер меню, подменю и под подменю.
Сам массив с номерами и названиями я выдам.

Alexandr (2005-01-24 06:22:00) [21]
а вот как с подменю?
А как хранить привязку, чтоб выбирать код

Рамиль (2005-01-21 14:01:00) [22]
procedure TForm1.Button1Click(Sender: TObject);
var
mi: TMenuItem;
begin
mi := TMenuItem.Create(Self);
mi.Caption := 'Caption';
PopupMenu1.Items.Add(mi);
end;

Рамиль (2005-01-21 14:00:00) [23]
procedure TForm1.Button1Click(Sender: TObject);
var
mi: TMenuItem;
begin
mi := TMenuItem.Create(Self);
mi.Caption := 'Caption';
PopupMenu1.Items.Add(mi);
end;

stone (2005-01-21 13:49:00) [24]
В справке пример вообще-то есть.
Впрочем, если есть заинтересованность платить плиз в асю (см. анкету)

Alexandr (2005-01-21 13:45:00) [25]
мда...
хорошо, а сколько надо?

stone (2005-01-21 13:43:00) [26]
TPopUpMenu + F1

> приведети плиз пример кода, который ...

Сколько $?

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »