1 respuesta en este tema

[AlexeyOr]

Hola, 

Me gustaría solicitar su ayuda en un tema con el que he estado trabajando sin encontrar una solución. Estoy tratando de crear una función que me permita crear un popup dinámico, esto es, en una base de datos tengo almacenada la información sobre los elementos que debe contener el popup y la función que debe de llamar en cada item, esto se tiene que crear en tiempo de ejecución.

 

Esto es lo que tengo:

delphi

type
   TNotifyEvent = procedure(Sender: TObject) of object;
 
 
procedure TForm1.arma_popup(clase,origen : String);
var
   cons, nombre, funcion : String;
   imagen,i : integer;
   tt : Tmenuitem;
   proc :TNotifyEvent;
   pt: TPoint;
begin

 

   // los datos del menú que vienen de la base de datos estan contenidos en dm.q3

 

delphi

i:=0;  //inicializar contador
   PopGral.Items.Clear;  // limpiar items del menú
 
   GetCursorPos( pt );   //obtener coordenadas de donde aparecerá el popup
   g_X := pt.x;
   g_Y := pt.y;
 
 
   while not dm.q3.Eof do begin
      // obtener los datos necesarios para la creación del menú
      nombre:=dm.q3.fieldbyname( 'nombre' ).AsString;           // nombre que se mostrará al usuario
      funcion:=dm.q3.fieldbyname( 'funarbol' ).AsString      // nombre de la función 
 
      // crear los items para el popup con el contenido de los elementos de la base de datos
      tt := Tmenuitem.Create( PopGral );
      tt.Caption := nombre;
      gral.PopGral.Items.Add( tt );
 
      proc:=funcion;    //  <-- aqui es donde manda el error: incompatible types TNotifyEvent and String
      PopGral.Items[ i ].OnClick := proc;
 
      i:=i+1;
      dm.q3.Next;
   end;
 
end;

 

No se como puedo asignarle el nombre de la función que contiene la variable "funcion" al evento onClick, espero puedan ayudarme.

 

De antemano gracias.

[Delphius]

Buenos días AlexeyOr,

¡Bienvenido a DelphiAccess! Esperamos que esta comunidad se convierta en tu 2do hogar y te sientas muy a gusto.

 

He editado tu mensaje para dar formato al código. Puedes hacerlo tu mismo. Para ello debes usar las etiquetas code: En el formulario donde escribes el mensaje verás un botón con los simbolos <>. Al presionar se te mostrará una ventana para seleccionar el lenguaje y un memo en el cual puedes pegar el código. Al aceptar verás que se ha colocado el código preformateado en la vista previa en el lugar donde tenías el cursor.

En cuanto pulses en "enviar" y se publique el mensaje verás el código hermosamente formateado.

 

Respecto a tu duda, el problema está en que la variable funcion es de tipo String, y en ella lo único que tienes guardado es el nombre de la función. Mientras que OnClick es un tipo TNotifyEvent. Para que funcione debes tener declaradas tus funciones, las cuáles deben seguir la misma "nomeclatura" que del evento.  Luego en función del nombre que leas en la base de datos, asignas tu función. Algo como esto:

delphi

// Declaracion
procedure F1(Sender: TObject);
procedure F2(Sender: TObject);
procedure F3(Sender: TObject);
 
 
// Asignacion
algo.OnClick := F1;
algo.OnClick := F2;
algo.OnClick := F3;

Naturalmente las funciones deben estar implementadas con su código. Y para hacer la asignación deberás valerte de un case o ifs para determinar cual corresponde pasar.

 

Espero que se entienda. Si tienes nuevas dudas, aquí estaremos.

 

Saludos,