Discussion :

[Paounet]

Bonjour à tous…

Je suis sous Delphi 10.2.3, mon projet terminé je lui ai adjoint un fichier
d'aide classique (*.chm).
A la touche F1 ou Ctrl+F1 via OnKeyDown mon aide apparaît correctement mais
aussitôt une autre fenêtre IE ou Microsoft Edge se lance avec pour
URL:https://www.bing.com/search?q=commen...22&form=S00028

Comment puis-je bloquer cette recherche supplémentaire de Windows 10.. Je sèche..
Code d'appel pour appeler l'aide :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm_Menu.FormCreate(Sender: TObject);
 Var i:Integer;Image:TBitmap;
Begin
    Application.HelpFile := ExtractFilePath(Application.ExeName) +'GestFact 2018.chm';
….
End;
 
procedure TForm_Menu.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
  if (Key=91) Or (Key=113) then 
    HtmlHelp(Application.Handle,PChar(Application.HelpFile),HH_DISPLAY_TOPIC, 0);
end;

D'avance à tous Merci..

[tourlourou]

Bonjour,

Cela persiste-t-il en annulant la touche pour éviter tout autre traitement ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure TForm_Menu.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
  if (Key=91) Or (Key=113) then 
  begin
    Key := 0;
    HtmlHelp(Application.Handle,PChar(Application.HelpFile),HH_DISPLAY_TOPIC, 0);
  end;
end;

[Paounet]

Ca ne fonctionne pas malgré l'annulation de la touche via Key:=0;

[Paounet]

Lorsque je me déconnecte d'Internet (Wifi), pas de souci
F1 et CTRL F1 sont opérationnels… Mais connecté à IE Ou
Microsoft Edge le problème… La touche F1 est effectuée
avec en plus une recherche sur Bing ou autre de l'aide Windows !

[tourlourou]

Je ne comprends pas bien les constantes clavier testées. Si j'en crois https://docs.microsoft.com/en-us/win...tual-key-codes et http://docs.embarcadero.com/products...hiftState.html, dans un OnKeyDown, on chercherait plutôt à savoir si c'est VK_F1 (112) et si CTRL pressé en même temps : if ssCtrl in TShiftState then ...

[Paounet]

Mes constantes (Key=91) et (Key=113) correspondent
aux touches F1 et CTR+F1 testées via le programme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
procedure TForm_Menu.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
  ShowMessage(Key.tostring);
end;