home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / progs / CB / DATA.Z / WEB1.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1996-08-05  |  963 b   |  30 lines

  1. //---------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "Web1.h"
  6. //---------------------------------------------------------------------
  7. #pragma resource "*.dfm"
  8. TForm1 *Form1;
  9. //---------------------------------------------------------------------
  10. __fastcall TForm1::TForm1(TComponent *Owner)
  11.     : TForm(Owner)
  12. {
  13. }
  14. //---------------------------------------------------------------------
  15. void __fastcall TForm1::Button1Click(TObject* /*Sender*/)
  16. {
  17.     HTML1->RequestDoc(ComboBox1->Text);
  18. }
  19. //----------------------------------------------------------------------------
  20. void __fastcall TForm1::HTML1BeginRetrieval(TObject* /*Sender*/)
  21. {
  22.     String url;
  23.  
  24.     url = String(HTML1->URL);
  25.     ComboBox1->Text = url;
  26.     if (ComboBox1->Items->IndexOf(url) == -1)
  27.         ComboBox1->Items->Add(url);
  28. }
  29. //----------------------------------------------------------------------------
  30.