Substituir TAB por ENTER

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


Valeu

// 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:

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.

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;

Valeu pessoal..
Brigadao pela ajuda..

Renato

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