Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Focus (https://www.clubdelphi.com/foros/showthread.php?t=447)

Cronos

15-05-2003 07:05:41

Focus

:confused: Necesitaria por favor informacion sobre un pequeñissimo problema:
Que codigo podria utilizar para saltar de cualquier componente saltar a otro presionando la tecla enter.

Les agradeceria su ayuda.

Cronos

Ruben_Cu

15-05-2003 07:43:27

Hola Cronos, el código siguiente responde a tu pregunta:

Código:

if Key = #13 then                          { if it's an enter key }

   begin

       Key := #0;                                 { eat enter key }

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

   end

La fuente es el truco nº 1 del web site de trucomanía, visitala para mas información.
Debes colocarlo en el evento OnKeypress de un control y asociarle el mismo evento de todos los demás controles.
Saludos

bitERROR

17-05-2003 02:43:16

si pones la propiedad KeyPreview del formulario a True y programas el codigo de Ruben_Cu en el OnKeyPress del formulario el efecto es el mismo y no tienes que asociar el evento a todos los objetos.

Un xaludo :eek:

Ruben_Cu

17-05-2003 03:18:29

Hola bitERROR, tienes razón esto simplifica los códigos.
Es una solución más sencilla e igual de eficiente.
Saludos

La franja horaria es GMT +2. Ahora son las 12:12:29.