boa noite Jhosef
ontem mesmo me deparei com um problema similar a este a unica solução que
achei foi
colocar nove nos editmask e colocar no evento do field OnSetText a assim:
if not ( CheckDate(Sender,Text) ) then
Abort;
essa função checkdate criei aparte
function CheckDate(Sender: TField; Text: String): Boolean;
begin
Result := False;
if (Text = ' / / ') or (Text = '__/__/____') then //aki esta para
data mas vc pode mudar para telefone
begin
Sender.Clear;
Result := True;
end
else
begin
try
Sender.AsString := Text;
Result := True;
except
messagedlg('Data Inválida !!!', mtInformation,[mbOk],0 );
if Screen.Cursor = crHourGlass then
begin
Screen.Cursor := crDefault;
end;
end;
end;
end;
espero ter lhe ajudado!!!!
----- Original Message -----
From: "Fellipe Henrique" <felli...@gmail.com>
To: <delphi-br@yahoogrupos.com.br>
Sent: Wednesday, July 07, 2010 2:13 PM
Subject: Re: [delphi-br] EditMask em TField
Ao invés de passar a numeração com 0 passe com 9....
Exemplo: (99) 9999-9999
[]s
Em 7 de julho de 2010 14:09, Jhosef Marks <jho...@gmail.com> escreveu:
>
>
> E ai galera,
>
> É o seguinte, eu tenho um formulário que tem um campo de telefone com a
> máscara configurada corretamente...
>
> O que acontece é o seguinte... eu abro o formulário e passo pelo campo
> vazio, entro e saiu dele sem problemas, agora, a partir do momento que
> esse
> campo passar a ter um valor eu já não consigo mais deletar esse valor,
> cada
> vez que vou tentar apagar o valor do campo e tentar sair do campo ocorre o
> seguinte erro "Invalid input value. Use escape key to abandon changes", o
> maskedit naum deveria validar apenas se existisse um valor no campo?
>
> Att,
>
> Jhosef Marks de Carvalho
> Blog: http://www.jhosefmarks.com.br
> Jesus está voltando
>
> "E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e
> buscar
> a minha face e se converter dos seus maus caminhos, então eu ouvirei dos
> céus, e perdoarei os seus pecados, e sararei a sua terra." (2 Cr 7:14)
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
_________________________________
T.·.F.·.A.·.
Fellipe Henrique
http://blogs.digitumsoft.com.br/fellipeh
-------------------------------------------------------------------------------
[As partes desta mensagem que não continham texto foram removidas]
------------------------------------
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
