有一个WebBrowser空间在Pagecontrol控件上,当Pagecontrol控件增加一页时自动生成一个WebBrowser控件,并且显示当前最新链接,而且前一页仍显示原来的链接,这如何实现啊
procedure TForm1.AddTabSheet;
var
WebBrowser: TWebBrowser;
TabSheet: TTabSheet;
begin
TabSheet := TTabSheet.Create(self);
TabSheet.PageControl := PageControl;
WebBrowser := TWebBrowser.Create(self);
WebBrowser.Parent := TabSheet;
WebBrowser.Align := alClient;
WebBrowser.Navigate('http://www.csdn.net');
end;
var
WebBrowser: TWebBrowser;
TabSheet: TTabSheet;
begin
TabSheet := TTabSheet.Create(self);
TabSheet.PageControl := PageControl;
WebBrowser := TWebBrowser.Create(self);
WebBrowser.Parent := TabSheet;
WebBrowser.Align := alClient;
WebBrowser.Navigate('http://www.csdn.net');
end;
解决方案 »
- 如何读取RSS生成新闻列表,我是用Delphi做一个客户端的新闻列表,请多指教!!!
- 求助:我们需要得到文件路径时,可以单击一个浏览安钮,然后可以一级一级,找到这个文件,得到这个文件的路径,这是怎么做的啊?谢谢!
- 会VB的朋友请看一下这句语句如何转成delpi的?
- 调用命令的字符变量与字符连接问题
- 请问如何Debug MIDAS服务程序
- 打包问题?
- ADO+ACCESS的安装盘制作
- 多维数组类型定义问题!不明白!
- 好东东! Delphi2Java是一个Delphi程序员的Java开发工具
- D2006,使用indy发https请求,并支持TLS1.2 ,卡壳了。。。。。
- shr,xor,这些东东代表何意,谢谢!
- 太简单的问题了
你的例子在编译时说,无法给只读属性赋值,就是这WebBrowser.Parent := TabSheet;
你的例子在编译时说,无法给只读属性赋值,就是这WebBrowser.Parent := TabSheet;
你的例子在编译时说,无法给只读属性赋值,就是这WebBrowser.Parent := TabSheet;