desabilitar opciones del menú

[Manuel]

Hola amigos del foro, necesito desabilitar todas las opciones del menú de la forma principal de mi aplicación, luego yo habilto las opciones necesarias para cada usuario. Tengo esta rutina para desahabilitarlas:

for i:=1 to BcBarMainMenu1.MenuItemHeight do
begin
BcBarMainMenu1.Items.Items[i].Enabled := False;
end;

pero me da una opción fuera de rango (8) y apesar que tengo 32 opciones, será que la opción 8 es un submenú?, gracias amigos de todas maneras.

[delphi.com.ar]

¿¿¿MenuItemHeight???

Extraído de la ayuda de Delphi 7
Occurs when an application needs to determine the height of a menu item.

...

Write a MenuItemHeight event handler to calculate and return the height needed for menu items when the TStyle object customizes their appearance.

Supongo que debes cambiar eso por Items.Count -1.

Saludos!