home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / progs / CB / DATA.Z / AUTO1.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1996-08-17  |  1.0 KB  |  31 lines
  1. //---------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "auto1.h"
  6. //---------------------------------------------------------------------
  7. #pragma resource "*.dfm"
  8. TForm1 *Form1;
  9. //---------------------------------------------------------------------
  10. __fastcall TForm1::TForm1(TComponent *Owner)
  11.   : TForm(Owner)
  12. {
  13.   AutoServer = Variant::CreateObject("Pronto.EditServer");
  14. }
  15. //---------------------------------------------------------------------
  16. void __fastcall TForm1::Button1Click(TObject *Sender)
  17. {
  18.   AutoServer.OlePropertySet("EditStr", Edit1->Text);
  19. }
  20. //---------------------------------------------------------------------
  21. void __fastcall TForm1::Button2Click(TObject *Sender)
  22. {
  23.   Edit1->Text = AutoServer.OlePropertyGet("EditStr");
  24. }
  25. //---------------------------------------------------------------------
  26. void __fastcall TForm1::Button3Click(TObject *Sender)
  27. {
  28.   AutoServer.OleProcedure("Clear");
  29. }
  30. //---------------------------------------------------------------------
  31.