Trocar ENTER por TAB, é possível?

Delphi

05/08/2003

Gostaria de saber se é possível trocar o caractere ENTER(ASCII = 13) pelo tab, para que o foco seja passado automaticamente para o próximo campo de um formulário...


Tk

Tk

Curtidas 0

Respostas

Xco

Xco

05/08/2003

Se você colocar isto no evento OnKeyPress
if (Key==13) Key=N;

Onde N é um inteiro, ou char, que representa o caractere que vc quer colocar no lugar do enter, no caso, o TAB. Não consegui fazer ele dar o tab, mas a parte do enter funciona.


GOSTEI 0
Delima

Delima

05/08/2003

Olá, pessoal.

Uma forma simples de fazer com que a tecla enter se comporte, também, como a Tab:

1 - marque a propriedade KeyPreview do Form para true;
2 - coloque o código a seguir no evento OnKeyPress do formulário:

[color=blue:eaac9800d6]if (Key == VK_RETURN)
{
Key=0;
PostMessage (Handle, WM_NEXTDLGCTL, 0, false);
}[/color:eaac9800d6]

Também podemos usar o código abaixo para obter o mesmo resultado:

[color=blue:eaac9800d6]if (Key == VK_RETURN)
{
Key = 0;
Perform(WM_NEXTDLGCTL, 0, 0);
}[/color:eaac9800d6]

DeLima

www.dicasbcb.com.br


GOSTEI 0
POSTAR