TWebBrowser dynmisch erstellen

[RomanK]

Hoi DPler,
ich hab da nen Problem:
Wenn ich eine "normale" Komponente dynamisch erstelle, dann geht das ja so:
Bsp. mit TLabel:

Delphi-Quellcode:

meinlabel := TLabel.Create(mainform);
meinlabel.parent := mainform;
meinlabel.caption := ' TEST TEST TEST';

Das Ganze geht auch ohne Variable also so:

Delphi-Quellcode:

with TLabel.Create(mainform) do
begin
parent := mainform;
caption := ' TEST TEST TEST';
end;

So weit so gut. Wenn ich jetzt aber den TWebBrowser nehme, dann hat der keine Parent-Eigenschaft bzw. das ist eine andere Eigenschaft, also nicht das übergeordnete Control.
Okay, auch kein Problem, mach ich es halt mit InsertControl

Delphi-Quellcode:

meinwb := TWebBrowser.Create(mainform);
meinwb.navigate('www.delphipraxis.net');
mainform.insertcontrol(meinwb);

Aber, was mach ich jetzt wenn ich das ohne Variable machen will, also mit with ... do :?: :?:
Freue mich auf eure Lösungstipps. :thuimb: :dp:

[sakura]

Parent wurde durch den TWebBrowser überschrieben, existiert allerdigns in den vorhergenden Klassen noch weiter ;-) Also muss ein Casting her, aber auf die Extra-Variable wirst Du trotzdem nicht verzichten können :-( Liebt leider in der Natur der Objekt-Hierarchie.

Delphi-Quellcode:

meinwb := TWebBrowser.Create(mainform);
meinwb.navigate('www.delphipraxis.net');
TWinControl(meinwb).Parent := mainform;

...:cat:...

[RomanK]

DANKE sakura.
Ich hatte es bis jetzt einfach mit HostDockSite gelöst. 8)

[sakura]

Hm, auf die Idee muss man ja nur kommen :coder:

...:cat:...