[Sapiem]

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