Moverse entre los diferentes controles.
 

Saludos compañeros.

Tengo un proyecto con varios edits y botones, busco una forma alternativa de moverse entre ellos que no sea tab y shit+tab para retroceder.
Cómo hago para moverme y retroceder entre ellos con las teclas + para adelantar y - para retroceder?

Gracias de antemano por la ayuda!:)

Errr. ya he visto los hilos para recorrer los edits, pero combinado con botones no logro dar con eso.:D

Saludos,

Mira el truco 362 de trucomania creo que te puede ayudar, aqui te dejo el link http://www.q3.nu/trucomania/ftesp.html

Podes usar FindNextControl;

Salu2;

Si no te importa utilizar un componente puedes revisar éste (TKeysOnForm) de mi página; Puedes utilizar las combinaciones (ALT + <- y ALT + ->) para moverte por los controles.
Basta con que lo "sueltes" en el formulario y lo actives.
Tiene el código fuente, así que también puedes echarle un vistazo.

Gracias!
 

Gracias compañeros por sus ayudas, me sirvieron de mucho.

Muy buenas, me ha costado cerca de una hora(espero no llegar tarde) :$ , pero aqui esta :D, coloca el siguiente codigo en el evento onkeypress de los componentes.

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 If Key =#45 Then Begin
     keybd_event(16,0,0,0); // SHIFT oprimido
     keybd_event(9,0,0,0); // TAB oprimido
     Keybd_event(16,0,2,0); // Soltar el SHIFT  (NO SE PUEDE OMITIR)
     keybd_event(9,0,2,0); // TAB Released (Puede ser omitido)
     Key := #0
   end;
 if key=#43 then begin
    keybd_event(9,0,0,0); // TAB oprimido
    keybd_event(9,0,2,0); // Soltar el Tab
    Key:=#0;
 end;
end;

Espero que te sirva, si no es esto lo que querias dilo ;).

PERDON por la tarde respuesta -3 días después fue que vi tu código, Acanol- es para decir que tu código está perfecto y que era justo lo que queria.

GRACIAS MIL, Acanol!

De nada hombre, muchas gracias por responder, ya crei que no lo habias visto y que no sirvio de nada, saber que te es util me complace, un saludo y hasta la proxima.