Ver Mensaje Individual
  #3  
Antiguo 25-10-2012
Sapiem Sapiem is offline
Miembro
 
Registrado: abr 2007
Posts: 24
Reputación: 0
Sapiem Va por buen camino
Dudas

Gracias por responder..

Es cierto que no debo usar los punteros de strings así, pero fue para dar la idea de lo que necesito.

Es que tengo un código que en dependencia de cierto resultado, le voy asignar a un TMenuItem el evento OnClick según la función o procedimiento que me pasen como variable:

Digamos

Código Delphi [-]
Asignar(Menu1, 'FormClick');
Asignar(Menu2, 'Button1Click');

pero luego, puede que cambie de nuevo así:

Código Delphi [-]
Asignar(Menu1, 'Button1Click');
Asignar(Menu2, 'Button2Click');

Entonces con la función o procedimiento "Asignar", utilizaría:
Código Delphi [-]
function Asignar (MI: TMenuItem; CualEv: string);
begin
TMenuItem(MI).OnClick:= CualEv;
end;

es algo así la idea, ok. Ahora bien, yo puedo usar quizás:

Código Delphi [-]
function Asignar (MI: TMenuItem; CualEv: TNotifyEvent);
begin
TMenuItem(MI).OnClick:= TNotifyEvent(CualEv);
end;

pero desearía saber si lo puedo usar con cadena.

pd. No logro poner que el código me salga con estilo delphi, marco el icon, me sobrea el código, pero no lo publica como delphi.
Tampoco recibo las respuestas a mis hilos al correo, por qué..?

Gracias por todo.

Última edición por Casimiro Notevi fecha: 25-10-2012 a las 18:36:34.
Responder Con Cita