TForm - форма Створення модальних форм

Постановка задачі: створити додаток, в якому використовуються модальні форми, створити і використати модальні форми, які розміщені у dll.

Послідовність виконання:

1 Створюємо додаток: File/New/Application

2 Добавте кнопку на форму Form1.

3 Добавляємо нову форму: File/New/Form

4 Добавте кнопку на форму Form2.

5 У файл Unit1.cpp дописуємо код:

#include "Unit2.cpp"

6 У конструктор форми TForm1::TForm1 вставте:

Form2=new TForm2(Application);

7 У реалізацію методу TForm1::Button1Click вставте:

Form2->ShowModal();

8 У реалізацію методу TForm2::Button1Click вставте:

Form2->Close();

9 Зберігаємо усе: File/Save All

10 Компілюємо: Run.

Створення модальних форм розміщених у dll

Послідовність виконання:

1 File/New/Other/DLL Wizard

2 Source Type: C++, Use VCL, Ok

3 Добавляємо нову форму: File/New/Form

4 Добавляємо новий заголовочний файл File/New/Other/Header File і зберігаємо його під іменем Unit1.h, дописуємо у нього код:

extern "C" void __declspec(dllexport)ShowMyForm(void);

5 У файл Unit1.cpp дописуємо код:

#include "Unit1.h"

#include "Unit2.h"

6 Добавляємо у файл Unit1.cpp функцію:

void ShowMyForm(void)

{

Form2 = new TForm2(NULL);

Form2->ShowModal();

delete Form2;

}

7 Зберігаємо усе: File/Save All.

8 Компілюємо: Project/Build Project1.

Створюємо додаток, який динамічно використовує DLL:

9 Створюємо додаток: File/New/Application

10 Добавте кнопку на форму.

11 У розділ private класу форми TForm1 вставте код:

HINSTANCE Dll;

12 У конструктор форми TForm1::TForm1 вставте код:

Dll = NULL;

13 У реалізацію методу TForm1::Button1Click вставте код:

typedef void __declspec(dllimport)SHOWMYFORM(void);

SHOWMYFORM *ShowMyForm;

Dll = LoadLibrary("Project1.dll");

ShowMyForm = (SHOWMYFORM *)GetProcAddress(Dll, "_ShowMyForm");

ShowMyForm();

FreeLibrary(Dll);

14 Зберігаємо: File/Project As... Називаємо модуль Unit3, а проект Project2.

15 Компілюємо: Run.

Створюємо додаток, який статично використовує DLL:

9 Створюємо додаток: File/New/Application

10 Добавте кнопку на форму.

11 Добавте до проекту бібліотеку Project1.lib

12 У файл модуля дописуємо код:

#include "Unit1.h"

13 У реалізацію методу TForm1::Button1Click вставте код:

ShowMyForm();

14 Зберігаємо: File/Project As... Називаємо модуль Unit4, а проект Project3.

15 Компілюємо: Run.

Створення mdi форм

Постановка задачі: створити додаток з багатодокументним інтерфейсом (MDI), створити і використати MDI форми, які розміщені у dll.

Послідовність виконання:

1 Створюємо додаток: File/New/Application

2 Добавте кнопку на форму Form1.

3 Добавляємо нову форму: File/New/Form

4 Добавте кнопку на форму Form2.

5 У файл Unit1.cpp дописуємо код:

#include "Unit2.h"

6 У файл Unit2.cpp дописуємо код:

#include "Unit1.h"

7 У реалізацію методу TForm1::Button1Click вставте:

Form2=new TForm2(this);

Form2->Show();

8 У реалізацію методу TForm2::Button1Click вставте:

Button1->Caption="2";

Form1->Button1->Caption="1";

9 Зберігаємо усе: File/Save All

10 Компілюємо: Run.