求教,如何动态创建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,到底应该怎么做呀?
...全文
498 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用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;
idilent 2003-01-16
  • 打赏
  • 举报
回复
wb.parent:=form1;
lemon_jyg 2003-01-16
  • 打赏
  • 举报
回复
没人回答吗?是不是这个问题太ez了,555....

1,594

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧