Máscara em TEdits
14/12/2003
0
Alguém aí sabe como inserir máscaras em TEdits? Exemplo: Um campo Data do tipo: 14/12/2003
Se não for possível com o TEdit alguém poderia me indicar algum outro componente exceto o DBEdit?
PS: Ainda com o TEdit, como faço para quando o usuário teclar [Enter] seguir para o próximo Edit, nos moldes da tecla [TAB], mas usando [Enter].
Obrigado!
Michaell
Posts
14/12/2003
Fórum Vini
Você pode usar o TMaskEdit, ele funciona como um edit normal, e você pode editar a propriedade EditMask para criar suas próprias máscaras :lol: , mas ele já vem com algumas prontas.
Dê uma olhada no help do Delphi para maiores informações.
Máscara para datas: ´00/00/0000;0;_´
Espero ter ajudado.
Vinicius
14/12/2003
Leonel_fraga
if Key = #13 then [proximo edit].SetFocus;
onde: 13 representa o código ASCII da tecla Enter.
Espero poder ajudado!
14/12/2003
Fórum Vini
esta forma que você disse funciona, mas há outra mais fácil, que é mudar a propriedade KeyPreview do Form para true e colocar este código no evento onKeyPress do Formulário:
if (Key = #13) then
Perform(WM_NEXTDLGCTL, 0, 0);Assim, você não precisa de colocar o código em cada edit.
Obs.: A ordem do foco é definida clicando com o botão direito em cima do form e selecionando Tab Order...
Espero ter ajudado.
Vinicius.
14/12/2003
Fórum Vini
if (Key = #13) then begin Perform(WM_NEXTDLGCTL, 0, 0); Key:= 0; end;
Clique aqui para fazer login e interagir na Comunidade :)
