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
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
Curtidas 0
Respostas
Sanses
29/09/2004
Aqui testei e funcionou corretamente. Sugiro que verifique a ordem dos componentes(tab order) e troque o chr(13) por #13
Sanses
Sanses
GOSTEI 0
Oberdan
29/09/2004
If key = #13 then
Performe(Cm_Dialogkey, Vk_Tab, 0);
Oberdan :!:
Performe(Cm_Dialogkey, Vk_Tab, 0);
Oberdan :!:
GOSTEI 0
T.maciel
29/09/2004
if key = #13 then
begin
SelectNext(sender as TWinControl, true, true);
key := 0;
end;
begin
SelectNext(sender as TWinControl, true, true);
key := 0;
end;
GOSTEI 0