16 respuestas en este tema

[Fenareth]

Hola chicos y chicas de la comunidad !!!

Aquí ando con una preguntilla que me trae dando vueltas y vueltas...

Tengo un formulario donde se encuentra un ActionList, en él hay dos acciones que requieren ser llamadas con el mismo ShortCut F3 dependiendo de qué control esté activo al momento de presionar la tecla. Si se encuentra dentro de un TFrame llama la Acción 1 en caso contrario manda llamar a la Acción 2...

Yo quise controlarlo de la siguiente manera en el OnKeyDown de la forma...

delphi

if (bEnGrid) and (Key = VK_F3) then
  begin
    acLocalizaExecute(Self);
  end;
 
  if (not bEnGrid) and (Key = VK_F3) then
  begin
    acFBCatalogoExecute(Self);
  end;

... Donde bEnGrid es una variable booleana que me dice si el el F3 se invoca desde un Frame o no...

El caso es que no me detecta la pulsación de la tecla F3 por lo que no ejecuta ninguna de las dos acciones, intenté poniendo un breakpoint en la primera condición para saber qué valor estaba tomando la variable bEnGrid pero como comento, nunca entra a la condición por más que presiono la tecla F3    ....

Por dónde ando mal ? 

Gracias y Saludox !

[Héctor Randolph]

Prueba con la propiedad KeyPreview de la forma. Debe estar en True si quieres que capture los eventos del teclado.

Saludos

[Fenareth]

Gracias por responder amigo Hector ... te comento que la propiedad está en True tal y como lo mencionas y otras teclas si me las capta (inclusive otras de función)... Pero con el F3 se niega rotundamente...

 

Saludox !

[razadi]

Hola Fena,

mmm, quien habrá programado eso???, pero habría forma de ver más el código? es decir con lo que pones no sé si podría ayudarte...




saludos

[felipe]

¿Y ya revisaste bien el ActionList y su asocio con el form?... yo diría que omitiste algo, solo supongo


Saludos!

[Wilson]

Revisa si tienes algo en los eventos OnUpdate de las Acciones.
Prueba algo así como: que depronto no deje activar la acción.

delphi

if Key = VK_F3 then
  begin
    ShowMessage('algo');
  end;

y por último ensaya con otro teclado.

Saludos

[Delphius]

No sabría decir mucho sobre el problema... más considerando que los compañeros han aportado algunas pistas que podrían conducir a la solución.

Viendo tu código yo diría que puede escribirse de éste modo:

delphi

if (Key = VK_F3)
  then if bEnGrid
            then Hacer1
            else Hacer2;

Saludos,

[Desart]

Puede ser un problema del ActionList, aunque por código controles cuando llamas a uno o a otro procedimiento, puede darte un error  interno en le componente y no hacer la respectiva llamada, te recomiendo elimines los ShortCut F3 y apliques el mismo código que ya tienes, ya que aunque en el ActioList no este las llamadas si están los procedimientos.

[andres1569]

Hola Fenareth,

Si tienes cualquier componente TAction asociado a un ShortCut y dicha acción está habilitada (Enabled = True) y tiene asociada un evento en OnExecute, éste se ejecutará con preferencia sobre el evento KeyDown del formulario, aunque éste tenga a True la propiedad KeyPreview.

Alguna vez me he encontrado conflictos de este tipo, en que quiero tener en el mismo formulario dos acciones con el mismo ShortCut asociado y que se ejecute una u otra según el control activo, y la forma de solucionarlo es programar el evento OnUpdate de cada acción, habilitando o deshabilitando cada acción según convenga. En tu caso sería algo así:

delphi

procedure TForm1.acLocalizaExecute(Sender: TObject);
begin
  // Lo que sea
end;
 
procedure TForm1.acLocalizaUpdate(Sender: TObject);
begin
  acLocaliza.Enabled := ActiveControl = EditLocaliza;
end;
 
procedure TForm1.acFBCatalogoExecute(Sender: TObject);
begin
  // Lo que sea
end;
 
procedure TForm1.acFBCatalogoUpdate(Sender: TObject);
begin
  acFBCatalogo.Enabled := ActiveControl = EditFBCatalogo;
end;

De todas formas, me extraña que no te lance nada cuando ejecutas F3, ya que al menos, aunque no se dispare el evento OnKeyDown del formulario, sí debería dispararse el Execute de una de las dos acciones.

Otra cosa, probándolo ahora he tenido algunos resultados anárquicos que tienen que ver con la frecuencia con que se llama a los eventos OnUpdate de cada acción. En realidad dichos eventos se deberían llamar cada vez que ocurre algo en el formulario, una pulsación de teclado, un click del ratón ... etc, actualizando el estado de las acciones, pero no siempre sucede así (supongo que hay algo mal por ahí dentro). Para mayor seguridad, yo dejaría ambas acciones deshabilitadas desde diseño y habilitaría cada acción "a mano", cada vez que entras al control deseado:

delphi

procedure TForm1.EditLocalizaEnter(Sender: TObject);
begin
  acLocaliza.Enabled := Sender = EditLocaliza;
  acFBCatalogo.Enabled := Sender = EditFBCatalogo;
end;
 
procedure TForm1.EditLocalizaExit(Sender: TObject);
begin
  acLocaliza.Enabled := FALSE;
  acFBCatalogo.Enabled := FALSE;
end;

En este ejemplo, puedes hacer que ambos controles (supongo que son Edits), compartan sus eventos OnEnter y OnExit, que ya se encargan de habilitar/deshabilitar la acción correspondiente.

Saludos

[Fenareth]

Chicos gracias a todos por contestar, he estado haciendo pruebas con todos sus consejos, pero aún sigo dónde mismo...

Hice un proyecto aparte para generar las pruebas que me comentó andres1569 con este codigo...

delphi

procedure TForm4.acAccion1Execute(Sender: TObject);
begin
  ShowMessage('El focus está en el Edit1 !!!');
end;
 
procedure TForm4.acAccion2Execute(Sender: TObject);
begin
  ShowMessage('El focus está en el Edit2 !!!');
end;
 
procedure TForm4.Edit1Enter(Sender: TObject);
begin
    acAccion1.Enabled := Sender = Edit1;
    acAccion2.Enabled := Sender = Edit2;
end;
 
procedure TForm4.Edit1Exit(Sender: TObject);
begin
    acAccion1.Enabled := False;
    acAccion2.Enabled := False;
end;
 
procedure TForm4.Edit2Enter(Sender: TObject);
begin
    acAccion1.Enabled := Sender = Edit1;
    acAccion2.Enabled := Sender = Edit2;
end;
 
procedure TForm4.Edit2Exit(Sender: TObject);
begin
    acAccion1.Enabled := False;
    acAccion2.Enabled := False;

En el Form4 tengo un TActionList con 2 Acciones (acAccion1 y acAccion2) ambas con el mismo ShortCut (F3) y ambas con el Enabled en False, además de dos Edits que se supone deberían controlar las acciones...

El resultado ?... Cuando en mi TActionList está colocada primero la acAccion1 y estoy dentro de Edit1 al presionar F3 se ejecuta la acción sin problemas. Pero si me coloco en el Edit2 el F3 no manda llamar acción alguna...

En cambio si coloco en el TActionList primero la acAccion2 y estoy dentro de Edit2 al presionar F3 se ejecuta la acción, pero si entro al Edit1 no responde el F3...

   

Alguna luz nueva sobre el asunto ?

Muy agradecida...

Saludox !

[escafandra]

Prueba con este código:

delphi

procedure TForm4.acAccion1Execute(Sender: TObject);
begin
  ShowMessage('El focus está en el Edit1 !!!');
end;
 
procedure TForm4.acAccion2Execute(Sender: TObject);
begin
  ShowMessage('El focus está en el Edit2 !!!');
end;
 
procedure TForm4.EditEnter(Sender: TObject);
begin
  if Sender = Edit1 then acAccion1.ShortCut := VK_F3
  else acAccion1.ShortCut := 0;
  if Sender = Edit2 then acAccion2.ShortCut := VK_F3
  else acAccion2.ShortCut := 0;
end;

Lo eventos OnEnter de los dos Edit apuntan al mismo. No necesitas nada mas.

El problema es que no puedes tener dos ShorCut iguales para dos acciones distintas...


Saludos.

[Fenareth]

Queeeeeee tal !!!!!

Tan sencillo como eso amigo escafandra    ... nada complicado pero nada me quitaba de la cabeza el hecho de que se podía controlar dos shortcut iguales en dos acciones diferentes 

Gracias a todos !!!!!!!!! (pero qué buena comunidad !!!!  )

Saludox !

P.D. Que algún administrador ponga ésto como resuelto, yo tengo mucho trabajo     

[escafandra]

...Que algún administrador ponga ésto como resuelto, yo tengo mucho trabajo 

Pues en ese caso yo no puedo... No soy administrador...

Saludos.

[felipe]

...Que algún administrador ponga ésto como resuelto, yo tengo mucho trabajo 

Pues en ese caso yo no puedo... No soy administrador...

Saludos.

Creo que si puedes... pero bueno, lo haré yo 


Saludos!

[Fenareth]

Jajajajajaja, gracias chicos por la ayuda !!!

Yo quería poner a trabajar a Egostar pero se salió por la tangente   



Gracias de nuevo     

[egostar]

Ah caray, creo que llegue tarde, que bueno que siempre hay alguien que sale en auxilio de las damas en conflictos

Salud OS

[andres1569]

El problema es que no puedes tener dos ShorCut iguales para dos acciones distintas...

Pues sí que llevas razón  , estaba convencido de que se podía, ahora entiendo los problemas que me daba y que le echaba la culpa al método Update del TAction. Mirando la VCL veo que se recorren todas la acciones del ActionList y se coge la primera acción cuyo ShortCut coincide con el tecleado por el usuario, aunque dicha acción esté deshabilitada y no haga nada de provecho

Saludos