Moverse entre los diferentes controles.

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