Para que funcione la tecla ENTER y nos envie el foco al siguiente control (TEdit), en vez de utilizar la tecla TAB, hay que programar el evento KeyPress del formulario.
Se debe cambiar la propiedad KeyPreview del Form a true y en el evento FormKeyPress del mismo, se debe agregar lo siguiente:
Se debe cambiar la propiedad KeyPreview del Form a true y en el evento FormKeyPress del mismo, se debe agregar lo siguiente:
if key=#13 then
begin
key:=#0;
SelectNext(ActiveControl,true, true);
end;
y con esto ya puede utilizar la tecla ENTER para pasar de un control a otro,
2 comentarios:
Buenísimo, gracias por tu ayuda. Y si quieres que el enter x tab no incluya a los TButton solo pones:
if not(ActiveControl is TButton) then
if key=#13 then
begin
key:=#0;
SelectNext(ActiveControl, true, true);
Gracias amigo.
Publicar un comentario