Главная страница
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.06 c
4-1091865374
Ded Moroz
2004-08-07 11:56
2004.09.19
Timer, Ticks


14-1094136830
Cheater
2004-09-02 18:53
2004.09.19
Ошибка Explorera


4-1091891488
Seldon
2004-08-07 19:11
2004.09.19
Как определить какой шрифт...


3-1093002426
starik30
2004-08-20 15:47
2004.09.19
Поиск максимума


9-1085321983
_Jenaxx_
2004-05-23 18:19
2004.09.19
Помогите устранить ошибку(столкновение).