Como interrumpir un evento

[JerS]

Muy buenas Tardes amigo,

Queria que me ayudaran un poco con lo siguiente, tengo un formulario en el cual mando a ejecutar desde su creación un procedimiento el cual esta activo esperando que coloque la huella para poder identificar a la persona que marque, pero me gustaria en cierto momento interrumpir este procedimiento que se esta ejecutando en loop para poder hacer click a otro boton! como haria en este caso?

[Casimiro Notevi]

Sería más fácil si pones tu código

[ecfisa]

Hola JerS.

Si no interpreté mal lo que buscas, podrías hacer:

Código Delphi [-]
var
 OldEvent: TNotifyEvent;
begin 
  OldEvent := Componente.NombreEvento;  // salvar evento
  Componente.NombreEvento := nil;       // desactivar evento  
  // ... 
  // operaciones a realizar con el evento desactivado
  // ...
  Componente.NombreEvento := OldEvent;  // restaurar evento
end;

Saludos.

[ecfisa]

Empezado por Casimiro Notevi

Sería más fácil si pones tu código

Eso sin duda alguna...

Saludos.

[JerS]

Empezado por ecfisa

Hola JerS.

Si no interpreté mal lo que buscas, podrías hacer:

Código Delphi [-]
var
 OldEvent: TNotifyEvent;
begin 
  OldEvent := Componente.NombreEvento;  // salvar evento
  Componente.NombreEvento := nil;       // desactivar evento  
  // ... 
  // operaciones a realizar con el evento desactivado
  // ...
  Componente.NombreEvento := OldEvent;  // restaurar evento
end;

Saludos.

Excelente ecfisa, me leiste la mente y diste justo en la solución! muchas Gracias!!!

[Neftali [Germán.Estévez]]

Empezado por ecfisa

Si no interpreté mal lo que buscas, podrías hacer:

¿Interrumpir o Interceptar?

Yo tampoco me estoy aclarando con lo que necesitas...

[ecfisa]

Empezado por JerS

Excelente ecfisa, me leiste la mente y diste justo en la solución! muchas Gracias!!!

Me alegro que te haya servido

No me explayé mucho en el código por que sinceramente no estaba seguro de si había interpretado lo que buscabas.

Pero ahora sabiendo que el tema va por ahí, y aunque tal vez no sea crítico en este caso, es mas robusto:

Código Delphi [-]
  ... 
  Componente.NombreEvento := nil;       // desactivar evento 
  try
    // ... 
    // operaciones a realizar con el evento desactivado
    // (y que pueden fallar...)  
  finally
    Componente.NombreEvento := OldEvent   // restaurar evento
  end;
  ...

Saludos.