Cita:
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;
Cita:
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
end;
Saluditos