Por fin una de novato: como capturo teclado como con TMainMenu

[roman]

¿Qué para eso no está la propiedad ShortCut de los TAction?

// Saludos

[mamcx]

Si, eso lo se.

Haz esta prueba pa' que me entiendas.

Pon un TActionList en un Form sin menu. Le pones los shorcuts a los TAction. Corres la forma y haces lo comandos de teclado. Obviamente no son capturados....

[roman]

Ok. Ya hice la prueba:

Action1
  ShortCut: Ctr+A
  OnExecute: ShowMessage('Hola mundo');

En el formulario no hay nada más.

Ejecuto, oprimo Ctrl+A y recibo el mensaje.

Algo en tu formulario debe estar interceptando la acción; las acciones no depende de menús ni nada por el estilo.

// Saludos

[roman]

Mario:

¿No será que tienes el ActionList fuera del formulario?

Hace tiempo tuve esa duda porque si colocas el ActionList en un DataModule, los ShortCuts no son detectados por el formulario. Hice la pregunta en los foros de Borland y esto es lo que me sugirió Peter Below:

Código Delphi [-]
interface

type
  TForm1 = class(TForm)
  protected
    function IsShortCut(var Message: TWMKey): Boolean; override;
  end;

implementation

function TForm1.IsShortCut(var Message: TWMKey): Boolean;
begin
  Result := inherited IsShortCut(Message);
  if not Result then
    Result := DataModule2.ActionList1.IsShortCut(Message);
end;

Viendo el código original de IsShortCut, es sencillo deducir el porqué del problema y porqué la solución propuesta funciona.

// Saludos

[ecfisa]

Probé el ejemplo de roman y funciona correctamente. Y el ActionList definitivamente, esta dentro del Form.

[mamcx]

Excelente Roman.

Te dedico esta cancion:

http://www.youtube.com/watch?v=KVKDQgT_b-Y

[Ñuño Martínez]

Lo siento, pero no puedo evitarlo:

Empezado por mamcx

Por fin una de novato

¡Enhorabuena! ¿A que no fue tan difícil?