[roman]

Empezado por escafandra

Código Delphi [-]
procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key = VK_LEFT then
   begin
     keybd_event(VK_SHIFT,0,0,0);
     keybd_event(VK_TAB,0,0,0);

     keybd_event(VK_SHIFT,0,KEYEVENTF_KEYUP,0);
     keybd_event(VK_TAB,0,KEYEVENTF_KEYUP,0);
     Key := 0;
   end;
   if Key = VK_RIGHT then
   begin
     keybd_event(VK_TAB,0,0,0);
     keybd_event(VK_TAB,0,KEYEVENTF_KEYUP,0);
     Key := 0;
   end;
end;

Saludos.

¡Vaya! Juraría que había hecho eso y no funcionaba, pero sí funciona. Aún así, por lo que dije antes, yo no usaría esto para lograr lo que quiere Casimiro.

// Saludos