1   
2   //---------------------------------------------------------------------------
3   
4   #include <vcl.h>
5   #include <OleCtrls.hpp>
6   #include <utilcls.h>
7   #pragma hdrstop
8   
9   #include "Unit1.h"
10  //---------------------------------------------------------------------------
11  #pragma package(smart_init)
12  #pragma link "SHDocVw_OCX"
13  #pragma resource "*.dfm"
14  TForm1 *Form1;
15  //---------------------------------------------------------------------------
16  __fastcall TForm1::TForm1(TComponent* Owner)
17          : TForm(Owner)
18  {
19  }
20  //---------------------------------------------------------------------------
21  
22  void __fastcall TForm1::btnGoToClick(TObject *Sender)
23  {
24   //gose to website
25  TVariant Flags ;
26  Flags=0;
27  CppWebBrowser1->Navigate(StringToOleStr("http://www.borland.com"), Flags,
28  Flags, Flags, Flags);
29  
30  }
31  //---------------------------------------------------------------------------
32  
33  void __fastcall TForm1::btnPrintClick(TObject *Sender)
34  {
35  TVariant  I, O;
36  
37    I = 0;
38  CppWebBrowser1->ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, I, O);
39  }
40  //---------------------------------------------------------------------------