Uso do Enter não funciona
29/09/2004
0
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
Posts
30/09/2004
Sanses
Sanses
30/09/2004
Oberdan
Performe(Cm_Dialogkey, Vk_Tab, 0);
Oberdan :!:
30/09/2004
T.maciel
begin
SelectNext(sender as TWinControl, true, true);
key := 0;
end;
Clique aqui para fazer login e interagir na Comunidade :)