Como saber el Numero de Item pulsado de un TPopupMenu
 

Estoy montando la creación de un TPopUpMenu dinamicamente
me veo en la obligación de saber cual es el numero de Item
Seleccionado para pasar a un ActionList el Item para que este ejecute
un Sql donde debo pasarle uno campodebusqueda.Strings[Item Capturado]
porque este se corresponde al campo que busco.

Gracias

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 ;)

Gracias Marto
 

En que Metodo pondrias la Llamada en el OnChange del TPopUPMenu???

Wop!

No!!!!!!!!
Yo lo pondría en el onclick de los items que crees. Ahi tienes como Sender el item seleccionado.

Utilizando TMenuItem para Busquedas
 

Gracias Marto lo solucione asignando la propiedad Tag con un Integer
distinto para cada Item Creado Dinamicamente e interrogandolo Despues.

Paso el Código:

{ Funciones y Acciones para realizar Busquedas }
// ____________________________________________________________________________

procedure TfrmBuscar.TipoBusqueda(Titulo: String; NumeroOrden: Integer);
var
NewItem: TMenuItem;
begin
NewItem := TMenuItem.Create(Self);
NewItem.Caption := Titulo;
NewItem.OnClick := acBusca.OnExecute; // Llamada al Action.

{ En Está funcion se define NumeroOrden que será el Tag Asignado}
{ como es una propiedad que no se usa en los Items y es la }
{ única por la cual puedo Interrogar cual es el Item Seleccionado }

NewItem.Tag := NumeroOrden;
PopMenu.Items.Add(NewItem);
end;


procedure TfrmBuscar.acBuscaExecute(Sender: TObject);
var strWhere: string;
x:integer;
begin
try
if Sender is TMenuItem then
FiltrandoBusquedas('WHERE ('
+ CamposBusqueda.Strings[TMenuItem(Sender).Tag] +' LIKE '
+quotedStr(trim(txtTexto.Text) +'%')+')');
except
end;

end;


{Nuevo}

procedure TfrmBuscar.FiltrandoBusquedas(AWhere: string);
var
strWhere: string;
begin
Try
ADOQuery1.DisableControls;
ADOQuery1.Close;
strWhere := AWhere;
ADOQuery1.SQL.Strings[1] := strWhere;
ADOQuery1.Open;
ADOQuery1.EnableControls;
lblCoincidencias.Caption := 'Cantidad de coincedencias: '
+ inttostr(ADOQuery1.RecordCount );
gridResultado.Columns[gridResultado.Columns.Count - 1].Color := clSkyBlue;
FormatoGrilla;
except
end;
end;

{ FIN Funciones y Acciones para realizar Busquedas }
// ____________________________________________________________________________

Bueno pero...

¿qué no sirve la propiedad MenuIndex del item? MenuIndex es el índice del item en el menú que lo contiene.

// Saludos

Gracias Roman, lo cambie y funciona.
Tema Finalizado.