运用BCB巧建WEB浏览器

THTML控件是个现成的Web浏览器，只要将这些控件放在窗体上并调用Request Doc()方法，也许这有些过份简化，但显示Internet上的Web文档也就这么简单。因此，下面显示了如何迅速编写Web浏览器应用程序。

第一步如下：

1．开始新的主应用程序，将窗体的Name属性变成Web Main，将Caption属性变成EZ Web Browser。

2．将Panel构件放在窗体上，将其Align属性变为al Top，Height属性变为60，清除Caption属性。

3．将Combo Box构件放在面板上，移到面板顶部并让它象面板一样宽，将Name属性变成URL Combo Box，将Text属性变为所选URL（如http://www.microsoft.com）

4．将Status Bar构件放在窗体上，它自动放在窗体底部，将其Name属性变成Status Bar，Simple Panel 属性变为true。

5．将HTML控件放在窗体中央，将Align属性变为a Client。HTML控件即填满屏幕。将Name属性变成HTML。这时窗体如果还不美观则可以稍作调整，也可以保持原样（有点个性也不是坏事）。这时应保存项目，将窗体存为Web BrwsU.cpp，项目成为Web Brows.cpp。然后要加进让浏览器工作的功能。

6．单击URL组合框，产生On Click事件的处理器，在这个事件处理器中输入如下代码：
if (URL Combo Box > Text! ="") HTML > Request Doc (URL Combo Box > Text);

7．产生On Key Press事件的事件处理器在这个事件处理器中输入如下代码：
if (Key = = VK_RETURN){
Key =0;
if (URL Combo Box > Text = = "")return;
URL Combo Box > Items > Insert(0,URL Combo Box > Text);
URL Combo Box Click(Sender);
}

8．然后编译和运行程序。在组合框中输入URL并按Enter。如果输入有效URL，则页面装人HTML控件中。15分钟就建成了Web浏览器，这个浏览器已经很有样子了。只是还要加进不少功能。注意每次按Enter键时，输入的URL都会加进组合框的清单中。

第二步：最后修饰
首先在URL组合框下面加几个按钮。步骤如下：
1．在URL组合框下面加一个按钮，按Name属性为Go Btn，Caption变为GO！

2．产生新按钮的On Click事件处理器，在事件处理器中输入下列代码：
URL Combo Box Click(0)*

3．在URL组合框下面加另一个按钮，放在第一个按钮右边，将Name属性变为Stop Btn，Caption变为Stop。

4．产生新按钮的On Click事件处理器，在事件处理器中输入下列代码：
HTML > Cancel(0); Status Bar > Simple Text ="Done";

5．在前面两个按钮右边放第三个按钮，将Name属性变为Reload Btn，Caption变为Reload。

6．产生新按钮的On Click事件处理器，在事件处理器中输入下列代码：
URL Combo Box Click(0);

7．在面板上放最后一个按钮。将Name属性变为Source Btn，Caption变为View Source。

8．产生新按钮的On Click事件处理器，在事件处理器中输入下列代码：

HTML > View Source =!HTML
> View Source; if
(HTML > View Source) Source Btn > Caption= "
View Document"; else Source Btn > Caption= "View
Source"。

关键词： 运用BCB巧建WEB浏览器