Fórum Enter no lugar de Tab #264322
05/01/2005
0
Como faço pra o enter fazer a funçao do TAB
tentei como no exemplo q tem aki no clubedelphi mas no windows xp quando preciono o enter ele toca o som de como se divese ocorrido um erro ´PAN´
Obrigado
Feliz Ano Novo pra todos
[b:a6547d471b][color=green:a6547d471b]Título Editado(Saviski) [/color:a6547d471b]maiúsculas, indescritivo - ´TAB´ - leia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]regras de conduta[/url][/b:a6547d471b]
tentei como no exemplo q tem aki no clubedelphi mas no windows xp quando preciono o enter ele toca o som de como se divese ocorrido um erro ´PAN´
Obrigado
Feliz Ano Novo pra todos
[b:a6547d471b][color=green:a6547d471b]Título Editado(Saviski) [/color:a6547d471b]maiúsculas, indescritivo - ´TAB´ - leia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]regras de conduta[/url][/b:a6547d471b]
Guilherme
Curtir tópico
+ 0
Responder
Posts
05/01/2005
Boca 09
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then begin
key := 0;
Perform(WM_NEXTDLGCTL,0,0);
end;
end;
begin
if key = #13 then begin
key := 0;
Perform(WM_NEXTDLGCTL,0,0);
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)