Hola al foro, tengo el siguiente problema.
Necesito crear un menu conceptual (popup) en tiempo de ejecución y asignar una acccion a cada opcion del menu,
Lo que hago es que tomo los datos de un query para crear los items del menu, y eso me queda bien. Ahora, como agrego la propiedad onclick en tiempo de ejecución a cada item que voy creando?
Lo que hago es lo siguiente:
Código Delphi
[-]
nTotal := Data.AQMenuPopTSegmentos.RecordCount;
nTotal := Data.AQMenuPopTSegmentos.FindFirst;
For nCiclo := 0 to nTotal - 1 do
Begin
MenuItem := TMenuItem.Creaete(mPopTSegmentos)
MenuItem.Caption := Data.AQMenuPopTSegmentos.FieldbyName('NombreSegemento').AsString;
mPopTSegmentos.Items.Add(MenuItem);
Data.AQMenuPopTSegmentos.FindNext
Esto me crea perfectamente los items del menu, pero estos no tienen metodo onclick declarado, lo que necesito es agregarselo pues cada item tiene un llamado a un mismo procedimiento mandando como procedimiento el valor del caption.
Que puedo hacer? cómo se hace lo que deseo?
Agradezco y espero haber sido claro con lo que estoy planteando aqui,
Fernando Castro
México, D.F.