求教，如何动态创建WebBrowser？

[lemon_jyg]

我是这样写的
procedure TForm1.Button1Click(Sender: TObject);
var wb:TWebBrowser;
begin
wb := TWebBrowser.Create(form1);
end;
可是form上却显示不出webbrowser，到底应该怎么做呀？

[lemon_jyg]

没人回答吗？是不是这个问题太ez了，555....

[idilent]

wb.parent:=form1;

[Jiasong]

procedure TForm1.Button1Click(Sender: TObject);
var wb:TWebBrowser;
begin
wb := TWebBrowser.Create(form1);
wb.Visible:=true;
wb.Align:=alClient;
wb.ParentWindow:=form1.Handle;
end;

[lemon_jyg]

idilent() ：
TWebBrowser的parent是只读属性

Jiasong(都市沙漠)：
多谢，可以显示了，不过
wb.Align:=alClient;
这句话怎么不起作用呢

[forgot]

procedure TForm1.Button1Click(Sender: TObject);
var wb:TWebBrowser;
begin
wb := TWebBrowser.CreateParented(self.WindowHandle);
form1.InsertControl(wb);
wb.Align:=alclient;
wb.SendToBack;
end;

[maozhuxiwansui]

加一句Form1.Refresh看看
我以前创建的工程中也常常出现这样的问题，好象用DELPHI的WEBBROWSER经常出现
ALIN错误的情况，或者常常不能正确显示！

[ehom]

WebBrowser.ParentWindow:=Form.Handle;
WebBrowser.SetBounds(0,0,Form.Width,Form.Height);

[lemon_jyg]

谢谢了，各位的方法都可以成功，散分 ：）

[mrlong]

lemon_jyg(lemon) 同意并加上 Webbrowser.Width := Self.Width;
Webbrowser.Height := Self.Height;