Create TWebBrowser and make it visible inside a form 1

[michaenh]

Hi everyone.. )

I wounder how to make a created component visible inside my Form.

Ex. of a created TWebBrowser:

procedure TForm1.Button1Click(Sender: TObject);
var
WB: TWebBrowser;
begin
WB := TWebBrowser.Create(Self);

if IsWindowVisible( WB.Handle ) then
begin
WB.Top := 200;
WB.Left := 300;
WB.Navigate('

http://www.yahoo.com');

end;
end;

This make it visible on the screen but outside my form.

Any is help great!

Many thanks in advance... )

Merry Christmas to you all...

Michael

 

[Roderich]

normally to make a component visible you need

WB.Parent := Self; // or the control you want to place on

regards
Rod

 

[michaenh]

Thanks Rod.

A simple use of InsertControl...

procedure TForm1.Button1Click(Sender: TObject);
var
WB: TWebBrowser;
begin
WB := TWebBrowser.Create(Self);

Form1.InsertControl(WB);
WB.Align := alClient;
WB.Navigate('

http://www.yahoo.com');

end;

Jippii!! )

Michael

 

[wyjkmsc]

MayBe it would work:

Wb.Parent:=Form1;

 

[michaenh]

hi wyjkmsc.

It would work.. )

THanks everyone.