Comment désactiver les raccourcis clavier de TAcroPDF

beckerich Messages postés 302 Date d'inscription jeudi 29 septembre 2005 Statut Membre Dernière intervention 17 septembre 2013 - 16 oct. 2010 à 21:56
beckerich Messages postés 302 Date d'inscription jeudi 29 septembre 2005 Statut Membre Dernière intervention 17 septembre 2013 - 3 nov. 2010 à 15:46
Bonsoir,

un petit problème qui m'embête depuis un moment, malgré pas mal de recherche...
Je visualise un document PDF avec le composant TAcroPDF.
Acrobat a les mêmes raccourcis clavier que j'utilise dans l'appli. Je ne peux pas les changer car mon client est habitué
à ces raccourcis...

J'ai essayé le code ci-dessous sans succès :
procedure TFM_DOC_TRT.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F4 then
  begin
    ACT_DOC_MODIFIER.Execute;
    Key := 0;
  end;
end;


Si un autre contrôle que le container OLE a le focus, ça fonctionne. Alors sur l'évènement OnShow ou OnActivate de la
Form, je force le focus à un autre contrôle, mais ça ne fonctionne pas non plus.

procedure TFM_DOC_TRT.FormShow(Sender: TObject);
begin
  if FileExists(QYS_DOCIN.FieldByName('NOMFIC').AsString) then
  begin
    try
      OLE.LoadFile(QYS_DOCIN.FieldByName('NOMFIC').AsString);
      OLE.setZoomScroll(100, OLE.Width div 2, 0);
    except
      on EOleSysError do
      begin

      end;
    end;
  end;
  SED_FOO.SetFocus;
end;


Quelqu'un aurait-il déjà solutionné ce problème, svp ?
Merci d'avance.

1 réponse

beckerich Messages postés 302 Date d'inscription jeudi 29 septembre 2005 Statut Membre Dernière intervention 17 septembre 2013 2
3 nov. 2010 à 15:46
up !!!

bonjour,

je cherche et j'essaye toujours :-((

j'ai essayé un popupmenu avec un item dont le Shortcut Keyy := F4, mais non, ça veut pas.
Peut-être qu'en interceptant le message dans la file de message, ça irait ?
TApplication.ProcessMessage
ou
WndProc
ou
WMCommand ?

J'en appelle aux gourous (je sais, je peux essayer moi-même...)
Pas d'insulte ni de troll svp, ça fuse pas mal en ce moment...

Luc.
0
Rejoignez-nous