¿Cómo simular de "verdad" las teclas SHIFT+TAB?

[roman]

Empezado por escafandra

Pues el código que puse, en mi delphi 7 no hace cosas raras, no creo haber añadido nada mas que activar la tecla tab para que funcione como dice Casimiro.

Tu código funciona bien, pero no al mezclarlo con el código del evento SelectCell de Casimiro. Al menos a mi no me ha funcionado tal cual.

Bueno, este último no lo he probado.

// Saludos

[Casimiro Noteví]

Bueno, he hecho unas pruebas y el código de Román funciona bien . Me he encontrado con un problema añadido, que ya está solucionado, cuando pulsaba enter sobre una celda para editarla, se quedaba el texto seleccionado, así que si intentaba teclear algo... se perdía lo que había. Un mal menor que ya está solucionado.

Escafandra, el código que has puesto creo que necesita algo más que no has puesto, me da error en la línea:

Código Delphi [-]
Input.Tipo:= INPUT_KEYBOARD;

Dice que no sabe qué es 'Tipo'. Hay otra propiedad, IType, o algo así, será esa la que hay que poner, ¿no?

[[escafandra]]

Ciertamente no había probado con el evento OnSelectCell que proponía Casimiro. Claro, el problema está en el evento. Cuando pulsamos Shift está pulsado constantemente, pero cuando lo simulamos lo despulsamos. Así al retroceder a una celda prohibida se simula un TAB sin Shift y se para...

Empezado por Casimiro Notevi

Escafandra, el código que has puesto creo que necesita algo más que no has puesto, me da error en la línea:

Código Delphi [-]
Input.Tipo:= INPUT_KEYBOARD;

Dice que no sabe qué es 'Tipo'. Hay otra propiedad, IType, o algo así, será esa la que hay que poner, ¿no?

Si..., Casimiro. La documentación de MS define así:

typedef struct tagINPUT {
  DWORD type;
  union {
    MOUSEINPUT    mi;
    KEYBDINPUT    ki;
    HARDWAREINPUT hi;
  };
} INPUT, *PINPUT;

Pero type es una palabra reservada en Delphi así que hice una conversión que olvidé publicar:

Código Delphi [-]
type
  TINPUT = record
  Tipo: DWORD;
  case integer of
    0: (mi: TMOUSEINPUT);
    1: (ki: TKEYBDINPUT);
    2: (hi: THARDWAREINPUT);
  end;  PTINPUT = ^TINPUT;

Ahora me doy cuenta de que en la unidad windows está definida la estructura y le dan el nombre de iType. Ese es el nombre que debes usar.


Saludos.

[roman]

Empezado por Casimiro Notevi

Me he encontrado con un problema añadido, que ya está solucionado, cuando pulsaba enter sobre una celda para editarla, se quedaba el texto seleccionado, así que si intentaba teclear algo... se perdía lo que había. Un mal menor que ya está solucionado.

De la otra guía de estilo:

Si encuentras la solución tú mismo, no te molestes en explicarla. Bastará con un "Ya lo resolví, gracias". Nos emociona ver gente autosuficiente.

// Saludos