Focus

[Cronos]

: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]

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

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]

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]

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