Tab E Enter = Mesmas Funçoes

[Guest - Marcelo -]

Ola

to precisando deixar o enter com a mesma função do tab.. para que ao apertar enter o campo mude para o outro. exemplo: escrevo algo no edit1 e aperto enter.. ai vai pro edit2.. tem como??

brigadao

Marcelo

[Vivendo&Aprendendo]

Substituindo TAB pelo ENTER

procedure TF_Padrao.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
  if not (ActiveControl is TDBGrid) then
  begin
   Key := #0;
   Perform(WM_NEXTDLGCTL, 0, 0);
  end
  else if (ActiveControl is TDBGrid) then
   with TDBGrid(ActiveControl) do
     if selectedindex < (fieldcount -1) then
      selectedindex := selectedindex +1
    else
      selectedindex := 0;
  end;

Ou então, pode-se tentar o seguinte método: Utilize o evento onkeydown do componente e insira o seguinte comando:

if Key = VK_RETURN then Perform(Wm_NextDlgCtl,0,0);

este comando testa a tecla pressionada, se ela for um enter, manda o foco para o componente posterior. Ou ainda no OnKeyPress de cada componente coloque:

If Key=#13 Then //#13 é código da tecla enter
  Perform(Wm_NextDlgCtl,0,0);

falou

Espero ter ajudado

V&A

[marcelotq]

ola.. muito obrigado.. tentei usar as 3 soluçoes porem tive o mesmo problema:

[Error] prjSeguroDesemprego.pas(124): Undeclared identifier: 'Key'

utilizei no Time, conforme descrito no codigo q segue:

procedure TForm1.Timer1Timer(Sender: TObject);
begin

        If Key=#13 Then //#13 é código da tecla enter
           Perform(Wm_NextDlgCtl,0,0);
end;

devo declarar essa variavel Key??

obrigado

abraço

Marcelo

[Felipee]

kara,

eu sugiro não fazer isso não.

o tab é padrão do windows para saltar de campos.

o enter é para confirmar uma operacao.

isso fora de seu programa pode confundir o usuario e fazer com que ele execute uma operacao que não deseja ao pressionar enter.

Deixa como está.

Sugestao...

Abras e sucesso!

Felipee.

[Progr'amador]

No Timer??

Coloque no OnKeyDown do Form:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then Perform(Wm_NextDlgCtl,0,0);
end;

e na propriedade do KeyPreview do form coloque TRUE

Abs. Progr'amador.

[Guest - marcelotq -]

ola.. muito obrigado a todos. consegue uma soluçao:

if (key=#13) and ((activecontrol is tedit) or (activecontrol is tcombobox))then

begin

key:= #0;

Perform(WM_Nextdlgctl,0,0);

end;

e no form ativei o keypress!!

brigadao a todos

abraços