Order Tab

Delphi

16/09/2009

Boa Tarde,

Vocês podem mim da uma dica, no meu cadastro quero saber como eu faço para pular de Edit, ou seja, os campos de cadastro. Além de clicar a tecla TAB eu quero que seja feito isso ao clicar a tecla ENTER.

procedure TFusuarios.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
if DBEdit1.Text <> ´´ then
begin
  DBEdit3.SetFocus;
end
else
begin
 ShowMessage(´Favor preencher o campo nome!´);
end;
end;
end;


Eu fiz dessa maneira, mais precisarei colar esse código em todos os campos do cadastro, assim só vai aumentar a quantidade de linhas do código.
Têm alguma outra maneira de realizar isso?

Obrigado.
Gustavo Gomes
:P


Gomes451

Gomes451

Curtidas 0

Respostas

Osocram

Osocram

16/09/2009

Amigo...
isso tem de tonelada no google e no forum.

É interessante tentar pesquisar antes.
http://www.oficinadanet.com.br/artigo/1320/tecla_enter_funcionando_como_tecla_tab

esse é so uma das paginas que encontrei.. a primeira na verdade...

Por favor não entenda como pessoal, é uma crítica construtiva. Para ser mais independente.

Flw.


GOSTEI 0
POSTAR