Moverse por un formulario con la tecla enter

[cisterpe]

He sacado esto de la pagina de trucomania y no me funciona, no se si es que esta mal, o lo he interpretado mal

http://www.q3.nu/trucomania/truco.cgi?1&esp

procedure TPresu.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) then { if it's an enter key }
if (ActiveControl is TEdit) then

begin
Key := #0; { eat enter key }
Perform(WM_NEXTDLGCTL, 0, 0); { move to next control }
end

end;

Muchas gracias soy muy novato y tengo muchas dudas

[__cadetill]

si no utilizas componentes TEdits es normal que no te funcione. Si los utilizas, es muy raro que no lo haga

Puedes mirar de quitar la linea de comparacion con el TEdit

De todas maneras, si te fijas en la pagina que tu mismo das, veras que hay varias propuestas para lo que quieres.

Tambien tienes que mirar que la propiedad KeyPress del Formulario este a true

[cisterpe]

Posteado originalmente por cadetill

Tambien tienes que mirar que la propiedad KeyPress del Formulario este a true

Premio para el caballero , la propiedad keypreview estaba FALSE

Gracias de nuevo

[[Lepe]]

Solo apuntar algo mas:


Perform(WM_NEXTDLGCTL, 1, 0); { move to previous control }

Muy util si quieres que sea los cursores flecha arriba y flecha abajo los que pasen de un control a otro.

aunque yo los uso mejor en el FormKeyDown, simplemente me gusta más.



VK_UP
VK_DOWN