home *** CD-ROM | disk | FTP | other *** search
- //---------------------------------------------------------------------
- #include <vcl.h>
- #pragma hdrstop
-
- #include "Web1.h"
- //---------------------------------------------------------------------
- #pragma resource "*.dfm"
- TForm1 *Form1;
- //---------------------------------------------------------------------
- __fastcall TForm1::TForm1(TComponent *Owner)
- : TForm(Owner)
- {
- }
- //---------------------------------------------------------------------
- void __fastcall TForm1::Button1Click(TObject* /*Sender*/)
- {
- HTML1->RequestDoc(ComboBox1->Text);
- }
- //----------------------------------------------------------------------------
- void __fastcall TForm1::HTML1BeginRetrieval(TObject* /*Sender*/)
- {
- String url;
-
- url = String(HTML1->URL);
- ComboBox1->Text = url;
- if (ComboBox1->Items->IndexOf(url) == -1)
- ComboBox1->Items->Add(url);
- }
- //----------------------------------------------------------------------------
-