¿como abortar ejecución de eventos?

[[maeyanes]]

Una opción sería:

Código Delphi [-]
procedure TForm1.OnKeyDown({...});
begin
  // ...
  // DBEdit que no quieres que ejecute el evento OnExit...
  DBEdit.OnExit := nil
end;

Claro, que luego tendrías que volver a asignar el manejador de evento al DBEdit para que vuelva a funcionar como se espera.

Otra opción sería la de tener un condicional en el evento OnExit, el cual se ejecute solo cuando ocurra algo que desees:

Código Delphi [-]
priocedure TForm1.DBEditOnExit(Sender: TObject);
begin
  if TalCondicion then
  begin
    // Código que desees que se ejecute o no de acuerdo a la condición...
  end
end;

Espero que te sirva de algo...



Saldos...

[pjjorda]

Gracias por tu prontísima respuesta.
La segunda opción es la que estoy usando hasta ahora.

La primera opción me parece más práctica en principio,
pero ¿como se vuelve a activar el onexit?

Yo esperaba que hubiera una especie de Abort o Exit para cancelar los eventos pendientes.
Gracias.

[[maeyanes]]

Para volver a asignar un evento por código:

Código Delphi [-]
DBEdit.OnExit := DBEditOnExit;

Ahora, si bien existe un exception Abort, no se si se pueda usar para estos fines...

También tienes el uso del Exit que se puede usar con la segunda forma que te comente:

Código Delphi [-]
procedure TForm1.DBEditOnExit(Sender: TObject);
begin
  if TalCondicion then
    Exit;
  // Código que deseas ejecutar si no se comple la condición de salida...
end;

Saludos...

[pjjorda]

Gracias de nuevo,

al ejecutar DBEdit1.OnExit := DBEdit1OnExit;
obtengo:
[Error] : Undeclared identifier: 'DBEDIT11ONEXIT'
algo no hago bien.

[pjjorda]

He creado una variable tipo Dbedit, a la que copio Dbedit1 al abrir el form.
y luego le paso a dbedit1 el evento Onexit cuando es necesario.

Repito muchas gracias Maeyanes.