Ayuda a crear edit con sus propias politicas

[bigguntm]

Son unos duros en la programacion, cualquiera de los dos funciona correctamente, pero tengo un detallito, el MaskEdit deberia de habilitar el btnCalculate cuando llene todo los caracteres,

Código Delphi [-]

if StrLen( PChar(Edit2.Text) ) > 12 then //al Maskedit le puse como name Edit2.Text
btnCalculate.Enabled := true;

if StrLen( PChar(Edit2.Text) ) < 13 then
btnCalculate.Enabled := false;
end;

ese code me funciona fino en un Edit, pero el problema de el MaskEdit esq siempre esta lleno.. un ejemplo de eso, MEP-_____-___ o MEP- - , yo borro, y lo que hace es retroceder. Y si lo pongo

Código Delphi [-]
if not StrLen( PChar(Edit2.Text) ) = 13 then 
btnCalculate.Enabled := false;

entonces siempre estaria habilitado ya que cuenta los '_' , ' ', '.' ... Saludos

[ecfisa]

Hola bigguntm.

Proba de este modo:

Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  with MaskEdit1 do
  begin
    EditMask  := 'LLL-00000-000;0; ';
    CharCase  := ecUpperCase;
    Text      := '';
    MaxLength := 12;
  end;
end;

procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  with MaskEdit1 do 
    btnCalculate.Enabled:= SelStart = 12;
end;
...

Saludos.

[ecfisa]

Hola de nuevo.

Me quedó rondando en la cabeza y si... El código anterior, provoca un efecto no deseado cuando se presiona Backspace u otra tecla más allá del caracter 12.

Mejor es:

Código Delphi [-]
procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  with Sender as TMaskEdit do
    if SelStart < 13 then
      btnCalculate.Enabled:= (SelStart = 12) and (key <> #8);
end;

Saludos.

[[nlsgarcia]]

bigguntm,

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.

[alsn]

Otra posibilidad:

Código Delphi [-]
procedure TForm1.MaskEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  btnCalculate.Enabled := Pos(' ',TMaskEdit(Sender).Text) = 0;
end;

Saludos