Uso do Enter não funciona
29/09/2004
0
Pessoal !!!
No evento ONKEYPRESS do form uso a linha de código abaixo:
if key = chr(13) then
begin
key := #0;
perform(wm_nextdlgctl,0,0)
end else if key = chr(27) then
perform(wm_nextdlgctl,1,0)
Mudei a propriedade keypreview para true, mas não está saltando de campo somente se pressiono ESC
Rogério
No evento ONKEYPRESS do form uso a linha de código abaixo:
if key = chr(13) then
begin
key := #0;
perform(wm_nextdlgctl,0,0)
end else if key = chr(27) then
perform(wm_nextdlgctl,1,0)
Mudei a propriedade keypreview para true, mas não está saltando de campo somente se pressiono ESC
Rogério
Rogeranalista
Curtir tópico
+ 0
Responder
Posts
30/09/2004
Sanses
Aqui testei e funcionou corretamente. Sugiro que verifique a ordem dos componentes(tab order) e troque o chr(13) por #13
Sanses
Sanses
Responder
30/09/2004
Oberdan
If key = #13 then
Performe(Cm_Dialogkey, Vk_Tab, 0);
Oberdan :!:
Performe(Cm_Dialogkey, Vk_Tab, 0);
Oberdan :!:
Responder
30/09/2004
T.maciel
if key = #13 then
begin
SelectNext(sender as TWinControl, true, true);
key := 0;
end;
begin
SelectNext(sender as TWinControl, true, true);
key := 0;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)
