Invalid input value. Use escape key to abandon changes

Question

Eu tenho um TDbEdit ligado a um campo data. Este campo data no FieldsEditor tem uma m�scara.Acontece que se a pessoa come�ar a digitar algo no campo e depois apagar o conte�do do mesmo e sair acontece...

Adriano Santos · Accepted Answer

Galera, coloquei um TMaskEdit e contornei o assunto.Na propriedade Mask coloquei.[color=red:6d3eb4d224][b:6d3eb4d224]!99/99/9999;1;_[/b:6d3eb4d224][/color:6d3eb4d224]Quando se coloca 9 ao inv�s de 0, ...

Paulo_amorim · Answer

Ol�Isso enche o saco mesmo...acontece tambem no TMaskEdit. At� hoje n�o achei c�digo que suspenda esse maldito aviso...Eu sempre emito mensagens de erro, menos nesse caso que mantenho o do componente.At�+...

Delphi32 · Answer

cara, vou ver sincero, n�o testei o que estou te passando, mas tenho a impress�o que o caminho � o mesmo que voc� vai ver em:

[url]http://delphiforum.icft.com.br/forum/viewtopic.php?t=38904[/url]

Se voc� descobrir, poste aki, ok?

bb!

Ariovaldo · Answer

Pessoal eu contornei esta situa��o usando uma fun��o para validar a data tanto que nen uso maskedit um dbedit normal

// Fun��o para Validar Data
function CheckDate(Sender: TField; Text: String): Boolean;
begin
Result := False;
if (Text = � / / �) or (Text = � / / �) then
begin
Sender.Clear;
Result := True;
end
else
begin
try
Sender.AsString := Text;
Result := True;
except
Showmessage(�Data Inv�lida !!!�, mtInformation,[mbOk],0 );
if Screen.Cursor = crHourGlass then begin
Screen.Cursor := crDefault;
end;
end;
end;
end;

e no evento On SetText do Field da data eu tenho este c�digo
if not ( CheckDate(Sender,Text) ) then begin
Abort;
end;
end;

na propriedade display format do field eu coloco
dd/mm/yyyy
Na propriedade Edit mask do field eu coloco isso
#//

Delphi32 · Answer

[quote:e3f213e5ac=�Ariovaldo�]Pessoal eu contornei esta situa��o usando uma fun��o para validar a data tanto que nen uso maskedit um dbedit normal// Fun��o para Validar Datafunction CheckDate(Sender: TField; Text: String): Boolean;begin  Result := False;  if (Text = �  /  /  �) or (Text = �  /  /    �) then    begin      Sender.Clear;      Result := True;    end  else    begin      try        Sender.AsString := Text;        Result := True;      except        Showmessage(�Data Inv�lida !!!�, mtInformation,[mbOk],0 );        if Screen.Cursor = crHourGlass then begin           Screen.Cursor := crDefault;      end;    end;  end;end;e no evento On SetText do Field da data eu tenho este c�digoif not ( CheckDate(Sender,Text) ) then begin     Abort;  end;end;na propriedade display format do field eu colocodd/mm/yyyyNa propriedade Edit mask do field eu coloco isso#//[/quote:e3f213e5ac]era exatamente isso! thx!...

Atilio · Answer

Eu tenho a solu��o. A falha ocorre quando o seu campo possui alguma valida��o de m�scara obrigat�ria, ap�s "limpar o campo" n�o vai funcionar qualquer evento.Clear.... Porque? ele est� aguardando um valor antes mesmo de passar em qualquer evento, qual a solu��o?

Vai adicionar um evento ONCHANGE no bot�o
if TDBIMASKEDIT(SENDER).GETVALUE = '' (Ou com TRIM = Caractere Fixo)
then
TDBIMASKEDIT(SENDER).Modified := False;

Assim toda vez que limpar o campo vai ser como se nunca tivesse modificado o mesmo para ele ficar "aguardando um valor"

F�rum Invalid input value. Use escape key to abandon changes #222024