47977 (608419), страница 4
Текст из файла (страница 4)
else {Form2->N9->Checked=true;
Form2->SpeedButton1->ShowHint=true;
Form2->SpeedButton2->ShowHint=true;
Form2->SpeedButton3->ShowHint=true;
Form2->TreeView1->ShowHint=true;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::SpeedButton4Click(TObject *Sender)
{
if (SaveDialog1->Execute()) {
Memo1->Lines->SaveToFile(SaveDialog1->FileName);
}
ChDir(ExtractFilePath(Application->ExeName));
}
//---------------------------------------------------------------------------
// Файл Unit3.cpp для формы Form3
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
int c3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::SpeedButton1Click(TObject *Sender)
{
Form3->Close();
}
//---------------------------------------------------------------------------//
Файл Unit4.cpp для формы Form4
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
int c4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::SpeedButton1Click(TObject *Sender)
{
Form4->Close();
}
//---------------------------------------------------------------------------
Приложение Б
Диаграмма вариантов использования












