Ver Mensaje Individual
  #5  
Antiguo 25-09-2008
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
Holas, yo no uso el MaskEdit, pero acabo de hacer una prueba y no da ningún error al salir del MaskEdit con los datos incompletos. lKing, lo que se me ocurre para validar el MaskEdit es lo siguiente, puedes ponerlo en el evento OnExit del MaskEdit, o en el boton donde verificas los datos.

En las posiones que no se llena nada, te lo toma como vacío lo que estoy haciendo es eliminar todos esos vacios en una variable axiliar y despues preguntar por la longitud.
Código Delphi [-]
procedure TForm1.MaskEdit1Exit(Sender: TObject);
var
 Aux : String;
begin
 Aux := Trim(MaskEdit1.Text); 
 While Pos(' ', Aux) > 0) do
  Delete(Aux,Pos(' ', Aux),1);
 if Length(Aux)<10 then
  begin
   showmessage('No ha terminado de llenar ');
   MaskEdit1.SetFocus;
  end;
end;

Seguro que hay alguna forma mejor, ya nos van a corregir nuestros amigos.

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.

Última edición por Caro fecha: 25-09-2008 a las 17:18:41.
Responder Con Cita