Tecla ENTER

[scooterjgm]

Hola a tod@s!!

He implementado el código de trucomanía para que la tecla Enter funcione como Tabulador. Ahora bien, en el componente TActionList tenía acciones con la tecla rápida Ctrl+Enter que ahora no funciona.

Alguien sabe como puedo hacer para que funcionen las dos cosas??

Muchas gracias.

[ContraVeneno]

comparar el parametro Shift: TShiftState del evento puede servir para lo que quieres

Yo implemente la función del Enter como Tab desde el formulario principal (no desde el control) y no tengo ese problema que mencionas....

[Neftali [Germán.Estévez]]

He subido a la sección de componentes del Club (controles) un componente sencillito llamado CKeysOnForm, que gestiona de forma fácil el tratamiento del ENTER (y algunas cosillas más) en los frmularios para sustituir al TAB.
Basta con soltarlo y activar la propiedad, no necesita código.

[vtdeleon]

Empezado por Neftali

He subido a la sección de componentes del Club (controles) un componente sencillito llamado CKeysOnForm, ....

Creo que el enlace esta mal. No he podido bajarlo

[el_barto]

Hola, me podes dar el link donde hiciste el cambio de tab a enter

[ContraVeneno]

Pon la propiedad KeyPreview de tu Form a True

luego en la función KeyPrees de tu form has lo siguiente:

Código Delphi [-]
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
If Key = #13 Then begin
SelectNext(ActiveControl as tWinControl, True, True );
Key := #0;end;
end;

el cambio en el control dependera del orden que le des a cada control en su propiedad Taborder
Saludos

[el_barto]

Ahh pero yo mal interprete el uso del enter lo que hace es cambiar de control en control, yo pense que me servia en mi grilla para cambiar de columna en columna mmmmmm me jodi

Graciasss

[Neftali [Germán.Estévez]]

Empezado por vtdeleon

Creo que el enlace esta mal. No he podido bajarlo

Bueno, a mi me ha bajado correctamente, de todas formas, puedes descargarlo de ésta direccion también.

[vtdeleon]

Que raro :-s

cada vez que le doy a link, me direcciona hacia: http://grflib.svnt.com/banners/personales2.gif

[ContraVeneno]

a mi tambien me redirecciona hacia ese gif

[Neftali [Germán.Estévez]]

Sí que es raro si...
Lo he probado en otro ordenador y me pasa lo que a vosotros...

Revisaré lo que pasa, mientras tanto os lo pongo como adjunto...

NOTA: De todas formas, para posibles actualizaciones revisar:
http://neftali.clubdelphi.com/delphi_componentes.html
(ya he corregido el link)

[vtdeleon]

Gracias

[Maury Manosalva]

Gracias, Ha funcionado de maravilla.
Maury Manosalva.

Colombia