Discussion :

[Lung]

Pour créer et redimensionner un TWebBrowser, je fais comme ca :

Code :

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

1
2
   WebBrowser := TWebBrowser.CreateParented((Self as TPageWeb).Handle);
   WebBrowser.SetBounds(0, _PanelScrollTab.Height + 1, (Self as TPageWeb).Width, (Self as TPageWeb).Height - _PanelScrollTab.Height);

Et ca ne fonctionne pas.
Il a une taille par défaut qui doit être de 250 x 250 pixels, et pas possible de la modifier.
Je précise que (TPageWeb).Width fait au minimum 800 pixels, et que (Self as TPageWeb).Height - _PanelScrollTab.Height doit en faire au moins 500.

Une idée ?

[Rayek]

Mettre ton webbrowser dasn un panel qui a ete redimessionné avant à la bonne taille et l'initialisé :

Code :

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

1
2
 
webbrowser.Align := alClient;

[Lung]

Mettre ton webbrowser dasn un panel qui a ete redimessionné avant à la bonne taille et l'initialisé :

Code :

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

1
2
 
webbrowser.Align := alClient;

Il est déjà dans un Panel qui a la bonne taille.
Et, j'ai eu la même idée que toi, mais ca ne change rien.

Je comprend pas.

[Lung]

J'ai finis par trouver la solution :

Code :

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

1
2
WebBrowser := TWebBrowser.Create((Self as TPageWeb)); 
  WebBrowser.ParentWindow := (Self as TPageWeb).Handle;

Il faut faire attention à fournir le bon Owner et le bon Parent.