Moverse entre los diferentes controles.

[kman]

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!

[kman]

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

[andressanchez]

Saludos,

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

[waltergomez]

Podes usar FindNextControl;

Salu2;

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

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.

[kman]

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

[Acanol]

Muy buenas, me ha costado cerca de una hora(espero no llegar tarde) :$ , pero aqui esta , 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 .

[kman]

Empezado por Acanol

Muy buenas, me ha costado cerca de una hora(espero no llegar tarde) :$ , pero aqui esta ,

Empezado por Acanol

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!

[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.