¿como cachar un evento?

[*Caro*]

Empezado por EgyEgy

Quiero saber si ese Exit es por que di un click a otro boton.

Hola egyegy, con ActiveControl como te ha indicado ecfisa.

Código Delphi [-]
procedure xxxx.DBEdit5Exit(Sender: TObject);
begin
 if ActiveControl=ButtonCalculo then
  showmessage('se ha presionado el boton xxx');
end;

Empezado por EgyEgy

En el objeto Tdbedit valido que lo que haya capturado sea un número y que ademas sea mayor al valor de otro objeto adjunto. Pero existe un caso que cuando doy CLICK a un boton lo calcule de forma automatica.

Es ahi cuando por default se ejecuta la validacion dentro del tdbedit y claro me marca un error por que el valor de este es vacio.

En ese caso, no te sería suficiente preguntar si tu dbedit esta vacío.

Código Delphi [-]
procedure xxx.DBEdit5Exit(Sender: TObject);
begin
 if Trim(DBEdit.Text)<>'' then
   //si es diferente de vacío hacemos los calculos  
end;

Saluditos