Sair de um �nico controle em um form

Question

Ol� galera!Estou com uma d�vida boba e n�o sei como sair dela.Tenho apenas um MaskEdit num form para entrada de data e gostaria de, ap�s inserir essa data, o form fosse fechado. Testei no evento onKey...

Brunodsr · Answer

Usa o onExit.1. Valida se a data � v�lida;2. Caso nao seja, informa ao usuario e mantem o foco no campo;3. Caso a data seja valida, fecha o form.Espero ter ajudado....

Microbios · Answer

obrigado brunodsr, por�m...

o onexit � disparado quando o controle PERDE o foco e no caso s� h� um controle no formul�rio, portanto ao terminar de preencher a data o foco permanece no controle, n�o h� perda do foco. O que eu quero � exatamente isso: sair validando a data e fechando o form, com um s� controle no form sem a passagem de foco pra outro contorle.

:wink:

Lucas.corp · Answer

tente com o onchange...

Brunodsr · Answer

Ola,Desculpe o post anterior. Nao tinha entendido.Vc ja pensou em obrigar o cara a pressionar ENTER para confirmar o campo?Tipo:[code:1:83606ebcee]  if key = #13 then    ValidaData;[/code:1:83606ebcee]Espero ter ajudado...

Brunodsr · Answer

[quote:64e0c7dac0=�brunodsr�]Ola,Desculpe o post anterior. Nao tinha entendido.Vc ja pensou em obrigar o cara a pressionar ENTER para confirmar o campo?Tipo:[code:1:64e0c7dac0]  if key = #13 then    ValidaData;[/code:1:64e0c7dac0]Espero ter ajudado[/quote:64e0c7dac0]Desculpe.. Poe isso no keyPress do campo....

Microbios · Answer

brunodsr;O c�digo que voc� citou seria o mais apropriado se eu n�o usasse um c�digo em meu MDI que faz a troca do TAB por ENTER em toda a aplica��o. N�o sei por qual motivo, esse c�digo [b:0722808d36]if key = #13 then [/b:0722808d36] no evento onkeypress n�o funciona.  :lol:  Qualquer outra tecla que eu testo, funciona. Menos o Enter. Vou continuar tentando achar uma solu��o. Por enquanto agrade�o �s sugest�es dadas. :wink:...

Pestana_ · Answer

acho que a solu��o seria esta:[code:1:ac09fa444d]If (Length(txtDataAtual.Text) = 10) and (txtDataAtual.Text <> �__/__/____�) then   frmDataDevolucao.Close;[/code:1:ac09fa444d]espero ter ajudado!...

Marco Salles · Answer

usando a Maskara :[b:d6ae2c3074]!99/99/9999;1;_[/b:d6ae2c3074]a a Propriedade [u:d6ae2c3074]EditText[/u:d6ae2c3074], ao Inves do [u:d6ae2c3074]Text [/u:d6ae2c3074]No evento [b:d6ae2c3074]OnChage[/b:d6ae2c3074] Anterior[code:1:d6ae2c3074]procedure TForm2.txtDataAtualChange(Sender: TObject);var data:TDateTime ;beginif trystrtodate(txtDataAtual.EditText,data) then close;end;[/code:1:d6ae2c3074]...