tab amp; Enter

Question

Como eu faco para que ao apertar o tab a selecao va para outro LabeledEdit ???como faco para ao apertar enter a acao do botaum x seja ativada??Favor postar o t�tulo em min�sculasModerador...

Inutaishou · Answer

No evento OnKeyDown:If Key = vk_tab Then  LabeledEdit#.SetFocus; //  � o n�mero do labeledEdit a ser focado.If key = vk_return Then  Bot�oXClick(action); // o bot�o deve possuir um evento OnClick com as fun��es necess�rias....

Anonymous · Answer

vlw...

Eniorm · Answer

Ops, esque�a o esquema acima cara, que me desculpe GRFrones ( :lol: ), mas
eu coloquei um procedimento bem mais eficaz. Est� em
www.apocaliptica.hpg.com.br/hackz/delphi/

L�, procure por um arquivo .txt chamado procedure ligar setas etc.
� totalmente customizavel. O esquema de GRFrones vc tem que colocar
aquele c�d em todos os edits, no meu, apenas no form principal da
aplica��o e...
...boa sorte.

Fui . . .

E_gama · Answer

1) Configure a propriedade �[b:5f4ddefb59]KeyPreiew[/b:5f4ddefb59]� do seu form para [b:5f4ddefb59]TRUE[/b:5f4ddefb59]
2) No evento �[b:5f4ddefb59]OnKeyPress[/b:5f4ddefb59] do form, escreva o c�digo abaixo:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then // ENTER
     begin
       Key := 0;
       SelectNext(ActiveControl, True, True);
     end;
end;

Anonymous · Answer

no evento KeyPress do Formbegin  if Key = #13 then     begin       key := 0;       KeyBd_Event(VK_TAB,0,0,0);  end;n�o esque�a de atriva a propriedade KeyPreview do Form Ok!!!...

Anonymous · Answer

[quote:5b62f640bb=�walbert castro�]no evento KeyPress do Form

begin
if Key = #13 then
begin
key := 0;
KeyBd_Event(VK_TAB,0,0,0);
end;

n�o esque�a de atriva a propriedade KeyPreview do Form Ok!!![/quote:5b62f640bb]

Tbm � boa essa, mas..., me perdoem, a minha dica que est� em www.apocaliptica.hpg.com.br/hackz/delphi/
� imbat�vel, pois vc tem apenas que colocar no form principal da aplica��o.
Fui...

F�rum tab amp; Enter #152673