[DELPHI6] et TWebBrowser et OnBlur

**Desraux** · 04/05/2006, 10h48

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.

**ALWEBER** · 04/05/2006, 11h35

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 :

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

1
2
 
Form1.BringToFront

dans l'évènement onTimer

**Desraux** · 04/05/2006, 12h01

Alors dans ce cas comment pourrait-on empêcher l'exécution de window.blur ?

**ALWEBER** · 04/05/2006, 15h34

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

**Desraux** · 04/05/2006, 15h43

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
 
 
<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>

**ALWEBER** · 04/05/2006, 17h04

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 :

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
 
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;

[DELPHI6] et TWebBrowser et OnBlur

Composants VCL Delphi

Vue hybride

Discussions similaires

Partager

Partager