Créer un TWebBrowser dynamiquement ?Résolu

Question

Bonjours  à tous et à toutes.

J'ai besoin de créer un TWebBrowser dynamiquement à l'aide d'un bouton ou autre mais je n'y arrive pas.Voici le code que j'ai tenter d'utiliser:

Var
Navi:TwebBrowser;
Begin
 Navi:=TwebBrowser.create(Form1);
  With Navi do
   begin
    align:=alclient;
    visible:=true;
   end;
end;

Quelqu'un peut-il  m'expliquer ce qui ne va pas ?

Merci et bonne prog...

WhiteHippo · Accepted Answer

Bonjour 

parent = Form1; ne peut pas fonctionner, propriété en lecture seule. il faut transtyper :

var 
 Navi: TWebBrowser; 
begin 
  Navi := TWebBrowser.Create(Form1); 
  Navi.Align := alClient;
  // TWinControl(Navi).Parent := Form1; // Affichage sur toute la fiche :(
  TWinControl(Navi).Parent := Panel1; // Affichage dans un panel ajouté à la fiche ;)
end;

Exemple d'utilisation :
  Navi.Navigate('http://www.swissdelphicenter.ch'); 

Cordialement. 
<hr />"L'imagination est plus importante que le savoir." Albert Einstein

cptpingu · Answer

Peut on avoir plus de précision ? Que se passe-t-il exactement ? Ca ne fait rien , ca plante, ca ne compile pas, etc...

Sinon essaie d'ajouter:

Var
Navi:TwebBrowser;
Begin
 Navi:= TwebBrowser.create(Form1);
  With Navi do
   begin
     parent = Form1; 
    align: =alclient;
    visible:=true;
   end;
end;

nethacker · Answer

que veux tu dire par dynamiquement ? ouvrir la page et executer les scripts sur cette page sans la voir ?
++

Créer un TWebBrowser dynamiquement ?

3 réponses

Votre réponse

Discussions similaires