求教，如何动态创建WebBrowser？

lemon_jyg 2003-01-16 03:23:21

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

...全文

546 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

mrlong 2003-01-17

打赏
举报

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

lemon_jyg 2003-01-17

打赏
举报

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

ehom 2003-01-17

打赏
举报

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

maozhuxiwansui 2003-01-16

打赏
举报

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

forgot 2003-01-16

打赏
举报

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

lemon_jyg 2003-01-16

打赏
举报

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

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

Jiasong 2003-01-16

打赏
举报

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