Substituir TAB por ENTER

06/02/2003

230

Ola amigos, como faço para substituir a tecla tab pela tecla enter?

Obrigado pela ajuda
Renato


Anonymous

Anonymous

Responder

Posts

06/02/2003

Uoquisala

E so vc baixar o Componente MDComponentes na seção componentes do Clube Delphi.


Valeu


Responder

06/02/2003

Rubensavelino

// Alterar a tecla TAB para ENTER.
// No evento KeyPress do Form, digite...
with Sender do
if Key = #13 then begin
SelectNext(Sender as tWinControl, True, True);
Key := 0;
end;

:arrow: :idea: :roll:


Responder

06/02/2003

Roa

Coloque o seguinte código no evento OnKeypress do seu Form:

if (Key = #13) then begin
Key := 0;
Perform(Wm_NextDlgCtl,0,0);
end;


Depois altere a propriedade KeyPreview do Form para ´true´.

Espero ter ajudado.


Responder

06/02/2003

Robsonismael

coloque dentro do evento OnKeyPress do formulario o seguinte codigo:

if key =#13 then
begin
key:=0;
if (sender is TDBGrid) then
TDBGrid(Sender).Perform(WM_KeyDown,VK_Tab,0)
else
Perform(Wm_NextDlgCtl,0,0);
end;


Responder

06/02/2003

Anonymous

Valeu pessoal..
Brigadao pela ajuda..

Renato


Responder

06/02/2003

Anonymous

Aproveitando a pergunta e as soluções, para mudar TAB para o ENTER, eu gostaria de saber, se alguém sabe uma forma de mudar o TAB pelo ENTER, no intraweb ???
Pois essas rotinas, no intraweb, nao funciona ...

Valeu galera


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários,
consulte nossa política de privacidade.

Aceitar