Ver Mensaje Individual
  #3  
Antiguo 12-12-2005
soto soto is offline
Miembro
 
Registrado: oct 2005
Posts: 17
Reputación: 0
soto Va por buen camino
Esto es lo que hago <<onExit>> de uno de los mask.


Código:
procedure Tv_pendientes.mask_desdeExit(Sender: TObject);
 var tempDate : tdate;
 begin
   try
 	TempDate := StrToDate(mask_desde.Text);
   except
 	on E: EConvertError do
 	begin
 	v_error.Show;
 	v_error.mensaje.caption := ('La fecha ' + mask_desde.Text + ' no es valida');
 	mask_desde.Text:= '01/01/1900';

 	end;
 end;
Como pregunto si los maskEdit estan vacios?
Responder Con Cita