Ver Mensaje Individual
  #2  
Antiguo 05-08-2004
Avatar de marto
marto marto is offline
Miembro
 
Registrado: may 2003
Ubicación: Barcelona, Catalunya
Posts: 882
Reputación: 24
marto Va por buen camino
Wop!

Puedes montarte una función que recorra el array de la propiedad Items y retorne el indice. La función tendría que parecerse a esta
Código Delphi [-]
function IndiceItem(Menu, AItem: TMenuItem);
var
  i: integer;
begin
  i := 0;
  while (i < Length(Menu.Item))  and (AItem <> Menu.Item[i]) do
    Inc(i);
  if i < Length(Menu.Item) then
    Result := i
  else
    Result := -1;
end;

Y se usaría así
Código Delphi [-]
  Index := IndiceItem(MiMenu.Item, ItemABuscar);

No me suena que exista alún método o propiedad que te facilite la vida y no tengo ahora al aayuda a mano
__________________
E pur si muove
Responder Con Cita