PopUpMenu в MainMenu
mega © (2004-09-04 11:40:00)
Мастера, подскажите, как в RunTime сделать PopUpMenu подменю
какого-либо пункта главного.
Defunct (2004-09-04 16:56:00) [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 - пункт из главного меню
Наверх 
ЧАТ |
Орешник |
|
