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

Вниз

PopUpMenu в MainMenu   Найти похожие ветки 

 
mega   (2004-09-04 11:40) [0]

Мастера, подскажите, как в RunTime сделать PopUpMenu подменю какого-либо пункта главного.


 
Defunct ©   (2004-09-04 16:56) [1]

Procedure ChargeMenu(Source,Destination:TMenuItem);
Var I:Integer;
   MI:TMenuItem;
Begin
 For I:=Destination.Count-1 DownTo 0 Do
 Begin
   Destination.Items[0].Destroy;
 End;
 For I:=0 To Source.Count-1 Do
 Begin
   MI:=TMEnuItem.Create(Application);
   MI.OnClick:=Source.Items[i].OnClick;
   MI.Caption:=Source.Items[i].Caption;
   MI.Checked:=Source.Items[i].Checked;
   MI.Enabled:=Source.Items[i].Enabled;
   MI.Bitmap:=Source.Items[i].BitMap;
   MI.Action:=Source.Items[i].Action;
   MI.ImageIndex:=Source.Items[i].ImageIndex;
   MI.Name:=Format(Source.Name+"TMP%D",[i]);
   Destination.Add(MI);
   If Source.Items[i].Count>0 Then
   ChargeMenu(Source.Items[i],Destination.Items[i]);
 End;
 Destination.Caption:=Source.Caption;
 Destination.Visible:=True;
End;


В качестве Source - PopupMenu.
В качестве Destination - пункт из главного меню



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

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

Наверх




Память: 0.46 MB
Время: 0.073 c
1-1094119034
вразлет
2004-09-02 13:57
2004.09.19
В чем м.б. лажа?


4-1091892408
IgorMarx
2004-08-07 19:26
2004.09.19
Запуск EXE из памяти, не выгружая на диск.


1-1093949185
tria
2004-08-31 14:46
2004.09.19
лишнее событие от мыши


4-1091873909
axelrod
2004-08-07 14:18
2004.09.19
А как получить уникальный и воспроизводимый ID коипьютерв


1-1094346129
eLVik
2004-09-05 05:02
2004.09.19
Посоветуйте компонент