TWebBrowser et création dynamique

Salut,

voulant creer un browser (ou plusieurs) dynamiquement, jai utilisé ce source :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.Button1Click(Sender: TObject); var IEBrowser: TWebBrowser; begin IEBrowser := TWebBrowser.Create(Self); with IEBrowser do begin Parent := self; Left := 0; Top := 0; Width := 52; Height := 391; Align := alLeft; end; end;

---

pour gagner de l'espace mémoire lorsque je n'ai pas besoin du browser, mais j'ai une erreur qui me dit que 'Parent' est ici en lecture seule, donc impossible de l'afficher.

Comment faire ? Merci.

Il faut caster le WebBrowser en TOleControl ou TWinControl.
De plus, ta variable IEBrowser devrait être déclarée "globale" ou dans ta classe TForm1...
Par exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

... var Form1: TForm1; IEBrowser: TWebBrowser;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); begin IEBrowser := TWebBrowser.Create(Self); TOleControl(IEBrowser).Parent := Self; with IEBrowser do begin Left := 0; Top := 0; Width := 52; Height := 391; Align := alLeft; end; end;

---

Merci beaucoup !!!!

c'est génial.