70
#include «Unit2.h»
#include «Unit10.h»
#include «Unit11.h»
#include «Unit7.h»
#include «Unit4.h»
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource «*.dfm»
TForm8 *Form8;
//---------------------------------------------------------------------------
__fastcall TForm8::TForm8(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn1Click(TObject *Sender)
{
Form7->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn4Click(TObject *Sender)
{
Form11->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn3Click(TObject *Sender)
{
if (OpenDialog1->Execute())
OleContainer1->CreateObjectFromFile(OpenDialog1->FileName, false);
}
//---------------------------------------------------------------------------
void __fastcall TForm8::SpeedButton4Click(TObject *Sender)
{
Form8->Hide();