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.