До тех пор пока вы не научились основным действиям, необходимым для изменения настроек и свойств элементов, входящих в проект, советуем не изменять имен файлов и других элементов, присвоенных им автоматически.
Внимание! Не изменять и не удалять, уже имеющиеся в
указанных файлах тексты.
// Директивы препроцессора
#include <vcl.h> // Подключение файла библиотеки VCL
#pragma hdrstop // Установки компилятора
#include "Unit1.h" // Подключение заголовочного файла
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1; // Объявление объекта формы
//--------------------------- Вызов конструктора формы --------------------------
__fastcall
TForm1::TForm1(TComponent*
Owner)
: TForm(Owner)
{
}
// Описания глобальных объектов Пользователя
// Набор функций-обработчиков, использующихся в проекте
// Директивы препроцессора
#ifndef
Unit1H
#define
Unit1H
//---------------------------------------------------------------------------
#include
<Classes.hpp>
#include
<Controls.hpp>
#include
<StdCtrls.hpp>
#include <Forms.hpp>
// Объявление класса формы
class TForm1 : public TForm
{
// Компоненты, размещенные на форме
__published: // IDE-managed Components
TLabel *Label1;
TEdit *Edit1;
TMemo *Memo1;
TButton *Button1;
private: //
User declarations
// Объявления функций, типов переменных, доступных только в данном модуле
public: // User declarations
// Объявления функций, типов и переменных, доступных в проекте
__fastcall TForm1(TComponent* Owner);
};
extern PACKAGE TForm1 *Form1;
// Объявления элементов, которые не включаются в данный класс
#endif
// Директивы препроцессора
#include <vcl.h>
#pragma hdrstop
/* - директива #pragma служит для установки параметров компилятора. Эти установки могут быть определены и другим способом, – используя диалог Project Options. */
// Подключение файлов форм и файлов ресурсов
USEFORM("Unit1.cpp", Form1);
USEFORM("Unit2.cpp", Form2);
// Главная программа
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
// Инициализация
Application->Initialize();
// Создание объектов форм
Application->CreateForm(__classid(TForm1), &Form1);
Application->CreateForm(__classid(TForm2), &Form2);
// Выполнение программы
Application->Run();
}