Firemonkey Mask Edit TCP/IP
Alguém saberia me ajudar a fazer um edit com mascara pra receber TCP/IP ??
Rodrigo Teixeira
Curtidas 0
Respostas
Inarais Jerônimo
04/01/2019
A lib do MaskUtils tem o FormatMaskText
declare o MaskUtils, em seguida escreva a seguinte função
Código:
Exemplo de uso:
OnChange do Edit:
Código:
OnKeyPress do Edit:
Código:
declare o MaskUtils, em seguida escreva a seguinte função
Código:
function Mascara(edt: String;str:String):string; var i : integer; begin for i := 1 to Length(edt) do begin if (str[i] = '9') and not (edt[i] in ['0'..'9']) and (Length(edt)=Length(str)+1) then delete(edt,i,1); if (str[i] <> '9') and (edt[i] in ['0'..'9']) then insert(str[i],edt, i); end; result := edt; end;
Exemplo de uso:
OnChange do Edit:
Código:
TEdit(Sender).Text := Mascara(TEdit(Sender).Text,'999.999.999.999'); TEdit(Sender).SelStart := Length(TEdit(Sender).Text);
OnKeyPress do Edit:
Código:
if not (Key in ['0'..'9',#8]) then Abort;
GOSTEI 0
Rodrigo Teixeira
04/01/2019
Boa Tarde,
Este código foi desenvolvido em Firemonkey - Delphi ?
Este código foi desenvolvido em Firemonkey - Delphi ?
GOSTEI 0
Inarais Jerônimo
04/01/2019
No modo acima não precisa da lib MaskUtils de forma bem pratica use o MaskUtils Assim:
Edit.Text := FormatMaskText('000\\.000\\.000\\.000;0;', Edit.Text);
GOSTEI 0
Inarais Jerônimo
04/01/2019
Boa Tarde,
Este código foi desenvolvido em Firemonkey - Delphi ?
Este código foi desenvolvido em Firemonkey - Delphi ?
SIm rodrigo pode fazer dessa forma ou com a lib do MaskUtils tem o FormatMaskText
GOSTEI 0
Rodrigo Teixeira
04/01/2019
No modo acima não precisa da lib MaskUtils de forma bem pratica use o MaskUtils Assim:
Edit.Text := FormatMaskText('000\\\\.000\\\\.000\\\\.000;0;', Edit.Text);
onde coloco este comando ?
GOSTEI 0
Inarais Jerônimo
04/01/2019
No onexit por exemplo do edit.<br />
GOSTEI 0
Rodrigo Teixeira
04/01/2019
não funcionou ainda =/
GOSTEI 0