Ver Mensaje Individual
  #4  
Antiguo 14-06-2011
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por APO Ver Mensaje
Si existiese la instrucción, sería saber algo así:

if btnAceptar.OnClick.Name = 'ConfigurarForm' then ...
A ver, intenta así:

Código Delphi [-]
var
  Method: TMethod;

begin
  Method := TMethod(btnAceptar.OnClick);
  if Method.Code = @TForm1.ConfigurarForm then
    ShowMessage('Mi evento OnClick es ConfigurarForm');
end;

// Saludos
Responder Con Cita