[DELPHI6] et TWebBrowser et OnBlur

Version imprimable

04/05/2006, 10h48
Desraux

[DELPHI6] et TWebBrowser et OnBlur

Bonjour,

J'ai un TWebBrowser posé sur une fiche. Quand je charge un document html qui appel OnBlur via du JavaScript ma fiche passe en dessous de tous les autres fençetres Windows. Je souhaiterais empêcher ce comportement.

J'ai donc cherché à intercepter l'évènement OnBlur. J'y arrive grâce aux interfaces IHTMLDocument2 et IHTMLWindow2. Par contre je n'arrive pas à empêcher l'évènement d'être exécuté.

Comment donc puis-je m'y prendre ?

Merci.
04/05/2006, 11h35
ALWEBER
ONBlur est un événément qui se déclenche lorsque la fenêtre pert le focus. Il est donc déjà trop tard.
Tu pourrais par exemple, mais je considère celà comme du bidouillage, mettre un timer dans ta fiche et mettre
Code:

1 2 Form1.BringToFront
dans l'évènement onTimer
04/05/2006, 12h01
Desraux

Alors dans ce cas comment pourrait-on empêcher l'exécution de window.blur ?
04/05/2006, 15h34
ALWEBER

As tu un exemple du code javascript qui provoque l'évènement ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
<html>
 <head>
  <title>Un</title>
  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  <script language="VBScript">
   Function OnBlur 
    Self.Blur
   End function
  </script>
 </head>
<body>
 <div><input style="width=120" type="button" value="OnBlur" OnClick="OnBlur"></div>
 <div><input style="width=120" type="text" value=" "></div>
 <div><a href=http://www.google.com>Google</div>
</body>
</html>

A priori le problème posé est plus complexe qu'il n'y paraît. Voici un code qui ne répond pas directement à ta question mais qui peut te donner une piste. ici lorsque l'application pert le focus elle se termine. Je suis en train de voir comment déclencher la procédure inverse. De mémoire je crois qu'il faut passer par un "hook"
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 type TForm1 = class(TForm) private { Déclarations privées } public { Déclarations publiques } procedure P1 (var msg : TMessage); message Wm_KillFocus; end; var Form1: TForm1; implementation {$R *.dfm} { TForm1 } procedure TForm1.P1(var msg: TMessage); begin SendMessage (self.Handle,WM_CLOSE,0,0) ; end;

04/05/2006, 17h18
Desraux

D'autre part lorsqu'on sélectionne une autre fenêtre (par la souris par exemple) on ne doit pas redonner le focus à la fiche qui comporte le twebbrowser. C'est pour cette raison que j'ai d'abord cherché à intercepter l'évènement.

Je viens d'essayer d'utiliser des collecteurs d'évènement (Sink) mais j'ai des plantages assez graves.
04/05/2006, 17h34
ALWEBER

Toutes les fenêtres dont tu parles sont elles dans une même application ?
05/05/2006, 08h44
Desraux

Non, justement.
05/05/2006, 09h45
ALWEBER

J'ai des programmes que j'ai développé pour les bibliothèques universitaires qui peuvent répondre à ta question. Je vais essayer d'en extraire la partie qui concerne ta demande. En général, car le traitement varie d'un système d'exploitation à un autre, et d'un compilateur delphi à un autre voilà ce qui se passe lorsque le programme perd le focus. Le système d'exploitation reprend le contrôle du programme et seule une action de l'utilisateur peut le remettre sur le dessus de la pile. Je part donc d'un autre programme caché à l'utilisateur (propriété left de l'objet TForm à 3000) qui lance le vrai programme et qui peut en garder le contrôle.