Discussion :

[Invité(e)]

Bonjour,

j'ai posé un TwebBrowser dans une fiche et il fonctionne pas mal. Là où je suis surpris c'est que quand je rédige des messages sur des forums, certaines touches de mon clavier deviennent inopérantes.

Par exemple sur le forum développez, c'est la touche "f" qui ne fonctionne pas. Sur d'autres forums, c'est la touche "p" ou "s".

Si je reviens par exemple sur une page web avec formulaire (ex : google) ces touches fonctionnent parfaitement !

J'ai posé pour tester un TEdit, puis un Tmemo et un TRichEdit sur la même fiche. C'est vraiment dans le Twebbrowser que l'une ou l'autre de ces touches ne fontionnent pas. je précise que je n'ai pas de raccourci clavier affectés à mon appli (pour l'instant).

Merci d'avance pour votre aide et vos conseils,

Arnaud

[remixtech]

TWebbrowser ne fait que reprendre l'ActiveX fournit avec Internet Explorer. Donc il faudrait connaître la version de Windows/IE, tout est à jours ? Le problème n'intervient que sur ton pc ?

Quand tu utilises l'application que j'ai mis en pièce jointe, que se passe t'il ? As tu le même soucis ? Sans compilation / Avec compilation, le problème intervient il ?

Il doit y'avoir une explication rationnelle...

[Andnotor]

Jamais eu de problème avec les touches alpha. Il y en a cependant un avec Enter qu'on remplace par un Ctrl+M.

[Invité(e)]

Merci beaucoup pour ta réponse ! J'ai utilisé ton exemple avec et sans compil et il fonctionne parfaitement. Je suis sur DelphiXE. IE8. J'ai examiné mon code et j'ai "neutralisé" une procédure :

Code :

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

1
2
   // procedure FormKeyDown(Sender: TObject; var Key: Word;
 // Shift: TShiftState);

Par contre je n'arrive pas à rendre ma touche enter active dans mon WebBrowser. Merci encore pour ta réponse, Arnaud.

[remixtech]

Merci beaucoup pour ta réponse ! J'ai utilisé ton exemple avec et sans compil et il fonctionne parfaitement. Je suis sur DelphiXE. IE8. J'ai examiné mon code et j'ai "neutralisé" une procédure :

Code :

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

1
2
   // procedure FormKeyDown(Sender: TObject; var Key: Word;
 // Shift: TShiftState);

Par contre je n'arrive pas à rendre ma touche enter active dans mon WebBrowser. Merci encore pour ta réponse, Arnaud.

Pour la touche Enter Andnotor a répondu.

[Invité(e)]

Je crois que je n'ai pas précisé :

En fait je crée par code des WebBrowser dans des Tabsheets posés sur un TPageControl

Donc je n'ai pas toutes propriétés voulues.

Voilà ma fonction pour récupérer le FOCUS

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
{**************************************************************************
                          Récupération du FOCUS
***************************************************************************}
function ContainsFocus(control : TWinControl) : boolean;
 var
   focusedHandle : HWND;
   focusedControl : TWinControl;
 begin
   focusedHandle := Windows.GetFocus() ;
 
   focusedControl := FindControl(focusedHandle) ;
 
   if focusedControl = nil then
     result := false
   else
   begin
     result := control.ContainsControl(focusedControl) ;
   end;
 end;

et voilà ma procédure qui teste :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
 
if ContainsFocus(TWebBrowser(pagecontrol1.ActivePage.Controls[0]))
 then
 
   if (Key=#13) then
  begin
    Keybd_Event(VK_LCONTROL, 0, 0, 0);    //Ctrl key down
    Keybd_Event(Ord('M'), MapVirtualKey(Ord('M'), 0), 0, 0); // 'M' key down
    Keybd_Event(Ord('M'), MapVirtualKey(Ord('M'), 0), KEYEVENTF_KEYUP, 0); // 'M' Key up
    Keybd_Event(VK_LCONTROL, 0, KEYEVENTF_KEYUP, 0); // Ctrl key up
  end  else
 
else
showmessage('le Focus est ailleurs !')
 
end;

je précise sur que sur le Form, j'ai bien coché la propriété KeyPreview à true

La procédure fonctionne si je modifie le code et que je teste un autre objet.
Le problème posé semble être l'expression

(TWebBrowser(pagecontrol1.ActivePage.Controls[0]))


Je précise que la compil se déroule nickel et que j'ai bien le message qui s'affiche si je clique sur un Tedit présent sur la même fiche.

Merci d'avance pour votre aide,

Arnaud

[elkhairi]

Bonjour,
J''ai un pc portable TOSHIBA(Satellite Pro), et je me suis surpris aujourdh'hui que quelque touche du clavier ne marchent pas ( touche : ENTRER , O, I, A, E, ...) . Merci bien de m'aider a resoudre ce probleme.

[DOLPat®]

Bonjour,
J''ai un pc portable TOSHIBA(Satellite Pro), et je me suis surpris aujourdh'hui que quelque touche du clavier ne marchent pas ( touche : ENTRER , O, I, A, E, ...) . Merci bien de m'aider a resoudre ce probleme.

Bonjour

Quelle est la relation avec la discussion en cours ou Delphi ?

Je te suggère de supprimer ton message et de le poster dans un forum plus approprié. (ici par exemple)

Et en passant de lire les Règles du forum.