Ñîçäàíèå êîíòðîëëåðîâ àâòîìàòèçàöèè ñ ïîìîùüþ C++Builder

Ñîçäàíèå êîíòðîëëåðà


Íà ãëàâíîé ôîðìå áóäóùåãî ïðèëîæåíèÿ-êîíòðîëëåðà ðàçìåñòèì êîìïîíåíòû TEdit, TCheckBox, TOpenDialog, TSaveDialog, à òàêæå äåñÿòü êíîïîê.


Ãëàâíàÿ ôîðìà êîíòðîëëåðà àâòîìàòèçàöèè

Ñîçäàäèì îáðàáîò÷èêè ñîáûòèé, ñâÿçàííûå ñ íàæàòèåì íà êíîïêè (ïðè ýòîì ñëåäóåò ñîñëàòüñÿ íà h-ôàéë ìîäóëÿ ComObj):

//———————————————————————————————#include <vcl.h>

#pragma hdrstop

#include <ComObj.hpp>

#include “autocon.h”

//———————————————————————————————#pragma package(smart_init)

#pragma resource “*.dfm”

TForm2 *Form2;

Variant Serv;

//———————————————————————————————__fastcall TForm2::TForm2(TComponent* Owner)



: TForm(Owner)

{

}

//———————————————————————————————

void __fastcall TForm2::Button3Click(TObject *Sender)

{

Serv=CreateOleObject(“Project1.MyAuto3”);

}

//———————————————————————————————

void __fastcall TForm2::Button1Click(TObject *Sender)

{

if (VarType(Serv)==varDispatch) Edit1->Text=IntToStr(Serv.OlePropertyGet(“Width”));

// èìååò ñìûñë ïðîâåðèòü, ÷òî èìåííî íàõîäèòñÿ

// â âàðèàíòíîé ïåðåìåííîé…

}

//———————————————————————————————

void __fastcall TForm2::Button2Click(TObject *Sender)

{

if (VarType(Serv)==varDispatch) Serv.OlePropertySet(“Width”,StrToInt(Edit1->Text));

}

//———————————————————————————————

void __fastcall TForm2::Button12Click(TObject *Sender)

{

if (VarType(Serv)==varDispatch) CheckBox1->Checked=Serv.OlePropertyGet(“Visible”);

}

//———————————————————————————————

void __fastcall TForm2::Button13Click(TObject *Sender)

{

if (VarType(Serv)==varDispatch) Serv.OlePropertySet(“Visible”,CheckBox1->Checked);

}

//———————————————————————————————

void __fastcall TForm2::Button11Click(TObject *Sender)

{

if (VarType(Serv)==varDispatch) Serv=Unassigned;

}

//———————————————————————————————

void __fastcall TForm2::Button5Click(TObject *Sender)

{

if (VarType(Serv)==varDispatch)

{if (OpenDialog1->Execute())

Serv.OleProcedure(“OpenFile”,OpenDialog1->FileName);}

}

//———————————————————————————————

void __fastcall TForm2::Button6Click(TObject *Sender)

{

if (VarType(Serv)==varDispatch)

{ if (SaveDialog1->Execute())

Serv.OleProcedure(“SaveFile”,SaveDialog1->FileName);}

}

//———————————————————————————————

void __fastcall TForm2::Button7Click(TObject *Sender)

{

if (VarType(Serv)==varDispatch) Serv.OleProcedure(“NewFile”);

}

//———————————————————————————————

void __fastcall TForm2::Button4Click(TObject *Sender)

{

if (VarType(Serv)==varDispatch) Serv.OleProcedure(“AddLine”,Edit1->Text);

}

//———————————————————————————————



Ñîäåðæàíèå ðàçäåëà