Ver Mensaje Individual
  #6  
Antiguo 12-07-2011
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
Cita:
Empezado por EgyEgy Ver Mensaje
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;

Cita:
Empezado por EgyEgy Ver Mensaje
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
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita