como se si he pulsado un boton

[[Lepe]]

Yo vengo desde otro frente.

Empezado por ercrizeporta

Lo que me pasa es que las acciones que se ejecutan en el evento onexit solo quiero que se realicen si no se pulsa un botón

¿Mal diseño? No puedo asegurarlo porque no hay código y no puedo adivinar qué hace el evento OnExit o el Boton Onclick.

Me recuerda a casos típicos de hacer algo "automáticamente", es decir... "intentos de dar inteligencia al Software". En la mayoría de las ocasiones se trata de un mal planteamiento de la solución, aunque no sé si será este el caso.

Saludos

[roman]

Pues ya Héctor lo dijo. Aun cuando el evento OnExit se ejecuta antes del OnClick, para cuando estamos en OnExit, el botón ya tiene el foco.

A veces era necesario esto por ejemplo para validar un campo, pero si el botón era el de Cancelar, pues la validación no debe tener lugar. Ahra mismo no se me ocurriría una altenativa, pero yo es que de hecho no me gustan las validaciones en cada edit y prefiero hacelas al final, todas juntas, en el evento OnCloseQuery.

// Saludos

[rafita]

Reabro este hilo porque he tenido la misma necesidad que el compañero, y efectivamente Hector tiene razón.

Pero deja de funcionar si quiero evitar el evento OnExit al pulsar sobre dos botones (pulsar sobre cualquiera de ellos, claro).

Ejemplo:

procedure TFMantoContratos.NumContratoExit(Sender: TObject);
begin
 if (not BCancelar.Focused)  or (not BNContratoAutomatico.Focused) then 
    begin
       // las instrucciones del OnExit
    end;

deja de funcionar para los dos botones.

¿a alguien se le ocurre alguna idea?

[rafita]

MIL PERDONES.

Me equivoqué en lo más básico: cambié un AND por un OR, y ese era el fallo.

  if (not BCancelar.Focused) and (not BNContratoAutomatico.Focused) then

Ahora si funciona para todos los botones que haga falta.
Gracias Hector por la respuesta tan útil.