Главная страница
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.023 c
1-1094047225
antonn
2004-09-01 18:00
2004.09.19
PopupMenu


11-1080588102
GuAV
2004-03-29 23:21
2004.09.19
KOL + MCK + Frame = ?


3-1093323221
kva
2004-08-24 08:53
2004.09.19
InstallShield и BDE


14-1093513216
Layner
2004-08-26 13:40
2004.09.19
Какие есть переодические журналы для программиста?


6-1089395762
rOOse
2004-07-09 21:56
2004.09.19
HTML формы