Máscara em TEdits

14/12/2003

1

Olá Pessoal!

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!


Responder

Posts

14/12/2003

Fórum Vini

Olá Michaell,
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


Responder

14/12/2003

Leonel_fraga

Quanto ao uso de máscaras, é isso que falaram. Quanto à passagem para o próximo Edit ao teclar Enter, faça o seguinte no evento KeyPress do Edit:

if Key = #13 then [proximo edit].SetFocus;


onde: 13 representa o código ASCII da tecla Enter.

Espero poder ajudado!


Responder

14/12/2003

Fórum Vini

Caro Leonel,
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.


Responder

14/12/2003

Fórum Vini

Oops, esqueci de uma linha:
if (Key = #13) then 
begin
  Perform(WM_NEXTDLGCTL, 0, 0);
  Key:= 0;
end;



Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira