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


Rogeranalista

Rogeranalista

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


Responder

30/09/2004

Oberdan

If key = #13 then
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;


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar