FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Moverse por un formulario con la tecla enter
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 |
#2
|
|||
|
|||
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 |
#3
|
|||
|
|||
Cita:
Gracias de nuevo |
#4
|
||||
|
||||
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 |
|
|
|