Discussion :

[BakaOnigiri]

Salut,

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

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

[rotule]

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 :

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

[BakaOnigiri]

Merci beaucoup !!!!

c'est génial.