diff options
Diffstat (limited to 'apps/windoze/CBuilder4/BibleCS/ddetest/DDEClientForm.cpp')
-rw-r--r-- | apps/windoze/CBuilder4/BibleCS/ddetest/DDEClientForm.cpp | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/apps/windoze/CBuilder4/BibleCS/ddetest/DDEClientForm.cpp b/apps/windoze/CBuilder4/BibleCS/ddetest/DDEClientForm.cpp deleted file mode 100644 index 4024da2..0000000 --- a/apps/windoze/CBuilder4/BibleCS/ddetest/DDEClientForm.cpp +++ /dev/null @@ -1,46 +0,0 @@ -//--------------------------------------------------------------------------- -#include <vcl\vcl.h> -#pragma hdrstop - -#include "DDEClientForm.h" -//--------------------------------------------------------------------------- -#pragma resource "*.dfm" -TForm1 *Form1; -//--------------------------------------------------------------------------- -__fastcall TForm1::TForm1(TComponent* Owner) - : TForm(Owner) -{ -} -//--------------------------------------------------------------------------- -void __fastcall TForm1::Button1Click(TObject *Sender) -{ - if (DdeClientConv1->SetLink("sword","Bible")) { - Application->MessageBox("DDE Link Successful!","DDE Information",MB_OK); - DdeClientItem1->DdeItem = "Lookup"; - DdeClientItem2->DdeItem = "Search"; - } - else { - MessageBox(Handle,"DDE Link Unsuccessful","DDE Information", MB_OK | MB_ICONERROR); - } -} -//--------------------------------------------------------------------------- -void __fastcall TForm1::DdeClientItem1Change(TObject *Sender) -{ - Memo1->Text = DdeClientItem1->Text; -} -//--------------------------------------------------------------------------- -void __fastcall TForm1::DdeClientItem2Change(TObject *Sender) -{ - Memo2->Text = DdeClientItem2->Text; -} -//--------------------------------------------------------------------------- -void __fastcall TForm1::Button2Click(TObject *Sender) -{ - DdeClientConv1->PokeData("Lookup", Edit1->Text.c_str()); -} -//--------------------------------------------------------------------------- -void __fastcall TForm1::Button3Click(TObject *Sender) -{ - DdeClientConv1->PokeData("Search", Edit2->Text.c_str()); -} -//---------------------------------------------------------------------------
\ No newline at end of file |