Ver Mensaje Individual
  #7  
Antiguo 10-03-2013
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Reputación: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
bigguntm,

Cita:
Empezado por bigguntm
...el MaskEdit deberia de habilitar el btnCalculate cuando llene todo los caracteres...
Revisa este código:
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
   MaskEdit1.EditMask := 'MEP-00000-000;0;_';
end;

procedure TForm1.MaskEdit1Change(Sender: TObject);
begin
   if Length(MaskEdit1.Text) = 8 then
      Button1.Enabled := True;
end;
Este código establece a True la propiedad enabled de un control TButton al ingresar todos los caracteres numéricos en el control TMaskEdit.

Nota: La longitud del control TMaskEdit es 8 dado que esta basada en la longitud de los caracteres de entrada. Si posteriormente requieres el valor entrado con su Mascara de Edición puedes aplicar el siguiente código:
Código Delphi [-]
...
var
   s : String;
begin
   s := Format('MEP-%s-%s',[Copy(MaskEdit1.Text,1,5),Copy(MaskEdit1.Text,1,3)])
end;
Espero sea útil

Nelson.

Última edición por nlsgarcia fecha: 10-03-2013 a las 01:21:33.
Responder Con Cita