Menús en tiempo de ejecución

[Neftali [Germán.Estévez]]

Utiliza la función NewItem de Delphi:

function NewItem(const ACaption: string; AShortCut: TShortCut; AChecked, AEnabled: Boolean; AOnClick: TNotifyEvent; hCtx: THelpContext; const AName: string): TMenuItem;

Sería algo así (de todas formas en la ayuda de delphi tienes ejemplos):

Código Delphi [-]
   Item := NewItem('Opcion A.3.1', 
                           ShortCut(Word('A'), [ssCtrl, ssShift, ssAlt]),
                           False{MenuChecked}, 
                           True, 
                           OptA31MenuItemClick, 0, '');
   Item.Tag := 1;
   // imagen desde un recurso
   Item.Bitmap.LoadFromResourceName(HInstance, RES_OPTA31);  
   // Añadirlo debajo de A.3 (debes accer a ese elemento del menú)
   OptA3.Add(BMenuItem);