6 respuestas en este tema

[axesys]

Estoy tratando de usar dos atajos de teclado con un botón que tengo enlazado a un Action de mi ActionList y no me funciona, a la propiedad ShortCut de la acción le asigno F8 y quiero que también se ejecute con Enter, por lo que abro el editor de texto que sale al presionar los ... en la propiedad SecondaryShortcuts y escribo Enter, pero al correr mi programa solo funciona el atajo de F8, lo mismo pasa si intercambio las teclas entre el ShortCut y el secondaryShortcuts con lo que solo funciona la tecla Enter.

 

¿Alguien sabe como se usa realmente la propiedad SecondaryShortcuts?

 

Saludos

[Agustin Ortu]

Yo lo hago dinamicamente, por ejemplo en los constructores de los forms:

delphi

Action.SecondaryShortCuts.Add(ShortCutToText(ShortCut(VK_F8, [])));

SecondaryShortCuts es en realidad un TStrings en el cual se almacenan la lista de los atajos, es por eso que en realidad en ese ejemplo estamos:

 

1. Creando un atajo con la funcion ShortCut

2. Pasandolo a texto (para poder agregarlo al TStrings)

3. Finalmente agregarlo a la lista

 

Como es "mucho lio", me he creado un wrapper que me facilita el uso:

delphi

ShortCutLinker
    .ClearAll(ActionList)
    .SetShortCut(Action_Blabla, VK_NUMPAD1)
    .AddSecondaryShortCut(Action_Blabla, '1')
    .SetShortCut(Action_Blablablabla, VK_NUMPAD2)
    .AddSecondaryShortCut(Action_Blablabla, '2');

[axesys]

Hola Agustín, lo probé y no me funciono.

 

 

Yo lo hago dinamicamente, por ejemplo en los constructores de los forms:

delphi

Action.SecondaryShortCuts.Add(ShortCutToText(ShortCut(VK_F8, [])));

SecondaryShortCuts es en realidad un TStrings en el cual se almacenan la lista de los atajos, es por eso que en realidad en ese ejemplo estamos:

 

1. Creando un atajo con la funcion ShortCut

2. Pasandolo a texto (para poder agregarlo al TStrings)

3. Finalmente agregarlo a la lista

 

Como es "mucho lio", me he creado un wrapper que me facilita el uso:

delphi

ShortCutLinker
    .ClearAll(ActionList)
    .SetShortCut(Action_Blabla, VK_NUMPAD1)
    .AddSecondaryShortCut(Action_Blabla, '1')
    .SetShortCut(Action_Blablablabla, VK_NUMPAD2)
    .AddSecondaryShortCut(Action_Blablabla, '2');

Encontré en un foro ruso que con el evento OnShortCut del toolbar lo podía cachar con este código y me funcionó.

delphi

procedure TfrmGeneral.barManagerHandleKey(Sender: TObject; AKey: Word;
  AShift: TShiftState; var AHandled: Boolean);
var
  AShortCut: TShortCut;
begin
  AShortCut := Vcl.Menus.ShortCut(Akey, AShift);
  if AShortCut <> scNone then
    if ProcessSecondaryShortCuts(AShortCut) then
      AHandled := true;
end;
 
function TfrmGeneral.ProcessSecondaryShortCuts(ShortCut: TShortCut): Boolean;
var
  i: Integer ;
  ss: string ;
begin
  ss := ShortCutToText(ShortCut);
  for i := 0 to actList.ActionCount-1 do
    if TAction(actList.Actions[i]).SecondaryShortCuts.IndexOf(ss) >= 0 then
    begin
      if TAction(actList.Actions[i]).Enabled then
        TAction(actList.Actions[i]).Execute;
      Exit(True);
    end;
  Result := False;
end;

Saludos

 

[Agustin Ortu]

La verdad me extraña.. se supone que ese trabajo sucio ya esta implementado en la Vcl y que uno simplemente indica la combinacion(es) de teclas y ya todo deberia ir de perlas

 

Alguna otra propiedad/evento que hayas modificado? En tu formulario tenes KeyPreview a True? Manejadores KeyPress/KeyDown?

[axesys]

La verdad me extraña.. se supone que ese trabajo sucio ya esta implementado en la Vcl y que uno simplemente indica la combinacion(es) de teclas y ya todo deberia ir de perlas

Alguna otra propiedad/evento que hayas modificado? En tu formulario tenes KeyPreview a True? Manejadores KeyPress/KeyDown?

Si tengo keypreview activado y en el evento onkeypress cacho la tecla Esc para cerrar el formulario y el Enter lo convierto en Tab.

[Agustin Ortu]

Yo tengo una configuración similar, KeyPreview activado y también capturo el escape para cerrar el formulario.

No estará interfiriendo la conversión de enter a tab?

[axesys]

Yo tengo una configuración similar, KeyPreview activado y también capturo el escape para cerrar el formulario.

No estará interfiriendo la conversión de enter a tab?

Tal vez, pero como ya funcionó con el evento onshortcut pues ya no le busque.