29/09/2004

Uso do Enter não funciona

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


Rogeranalista

Respostas

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


Responder Citar

30/09/2004

Oberdan

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

Oberdan :!:


Responder Citar

30/09/2004

T.maciel

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


Responder Citar