Текущий архив: 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.081 c