Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.03.05;
Скачать: CL | DM;

Вниз

Подменю в PopupMenu   Найти похожие ветки 

 
Pit ©   (2006-02-18 17:39) [0]

Доброго времени суток, Мастера подскажите как динамически создавать пункты подменю в PopupMenu ?


 
Джо ©   (2006-02-18 17:45) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
 Mi, SubMi: TMenuItem;
begin
 // создаем и добавляем пункт меню
 Mi := TMenuItem.Create(PopupMenu1);
 Mi.Caption := "Menu item";
 PopupMenu1.Items.Add(Mi);

 // добавляем к существующему menu item
 // под-меню
 SubMi := TMenuItem.Create(PopupMenu1);
 SubMi.Caption := "Submenu item";
 Mi.Add(SubMi);
end;


 
Pit ©   (2006-02-18 17:54) [2]

Спасибо большое Джо.



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

Текущий архив: 2006.03.05;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.041 c
1-1138789238
Sapersky
2006-02-01 13:20
2006.03.05
Конвертер заголовков DLL


2-1140012790
Id
2006-02-15 17:13
2006.03.05
comboBox1.Style:=csDropDownList


15-1139495181
BFG9k
2006-02-09 17:26
2006.03.05
Проблемы с удаленной отладкой


15-1139408761
[lamer]Barmaglot
2006-02-08 17:26
2006.03.05
1С-Управление распределенными информационными базами


10-1111136854
Anty
2005-03-18 12:07
2006.03.05
Проблема с ActiveX