Array
(
)

Uso do Enter não funciona

Rogeranalista
   - 29 set 2004

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


Sanses
   - 30 set 2004

Aqui testei e funcionou corretamente. Sugiro que verifique a ordem dos componentes(tab order) e troque o chr(13) por #13

Sanses


Oberdan
   - 30 set 2004

If key = #13 then
Performe(Cm_Dialogkey, Vk_Tab, 0);

Oberdan :!:


T.maciel
   - 30 set 2004

if key = #13 then
begin
SelectNext(sender as TWinControl, true, true);
key := 0;
end;