Ver Mensaje Individual
  #2  
Antiguo 22-01-2008
Avatar de elcolo83
elcolo83 elcolo83 is offline
Miembro
 
Registrado: feb 2007
Ubicación: Argentina
Posts: 65
Reputación: 18
elcolo83 Va por buen camino
Lo que podrias hacer es modificar la mascara, por ejemplo asi: (agrega esto en el evento OnKeyPress del TEditMask)

Advertencia: la mascara que estoy usando es '!\+99 00.000.00.00;1;_' supongo que debes tener algo asi en la mascara.


Código Delphi [-]
procedure TForm1.EditMask1KeyPress(Sender: TObject; var Key: Char);
var s, t: String;
begin
if key='/' then
  with TMaskEdit(Sender) do
    begin
      t:= Text;
      s:= EditMask;
      Delete(S, Length(s)-3, 4);
      EditMask:= S+'\/00;1;_';
      Text:= t;
      SelStart:= Length(Text)-2;
    end;
end;

eso si, si el usuario precionara '/' antes de completar el resto de los campos obligatorios lanzara el error de que faltan completar campos como ya sabemos.
Responder Con Cita