FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problema de asignación de puntero desde una cadena
Saludos:
Tengo el siguiente código y necesito que alguien me explique cómo debo lograr mi objetivo: procedure MyClick(Self, Sender: TObject); begin ShowMessage('Caption del Sender: ' + TButton(Sender).Caption); end; procedure TForm1.Button1Click(Sender: TObject); var M: TMethod; S: string; begin M.Data := nil; // M.Code := @MyClick; <---- así funciona ok S:= 'MyClick'; <---- así asigno el valor del procedure a una variable, puesto que ella va a variar M.Code:= @S; <--- aquí da error (como es lógico), pero es lo que quisiera lograr, que pueda asignar ese puntero a procedure desde una variable Button1.OnClick := TNotifyEvent(M); Button2.OnClick := TNotifyEvent(M); Button3.OnClick := TNotifyEvent(M); end; Gracias |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Problema con Asignacion a un Objeto. | BEPAI | Varios | 12 | 10-04-2007 13:28:35 |
Almacenar la dirección de un puntero en una cadena | abracadabra | Varios | 2 | 17-11-2006 19:16:18 |
Cargar puntero del raton desde un archivo | zurech | Varios | 2 | 28-09-2005 16:34:23 |
Problema con asignacion de valores en un rango | Valeric | Servers | 4 | 06-09-2005 13:44:04 |
Asignacion de cadena a un Dbgrip | elpezfuma | OOP | 1 | 04-06-2003 09:24:09 |
|