Главная страница
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.066 c
14-1093971859
Колян
2004-08-31 21:04
2004.09.19
А в Москве снова гремят взрывы...


6-1089720525
ctranik
2004-07-13 16:08
2004.09.19
Как заставить IdHTTP запускатся автоматически


1-1094460778
Villain
2004-09-06 12:52
2004.09.19
Как запустить проект Delphi 8 без .NET


14-1094147058
ИМХО
2004-09-02 21:44
2004.09.19
Mail.RU лежит трупиком


1-1094119475
happyandry
2004-09-02 14:04
2004.09.19
как правильно называется компонент (индикация по часовой стрелке)