C _Учебник_МОНУ

Обирання батьківського компонента. Створимо власний компонент як нащадок класу TButton, долучивши до нього нову властивість, яка буде обчислювати кількість натискань. Назвемо новий компонент TBtnNClick. До компонента, окрім властивостей, звичних для TButton, долучимо нову властивість у вигляді додаткового цілого типу – int NClick – лічильник натискань.

Створення модуля нового компонента. Роботу над створенням нового компонента розпочинаємо з побудови шаблона нового класу. Для цього слід виконати такі дії.

Виконати команду File / New / Application. У меню Component обрати опцію New Component і в однойменному діалоговому вікні заповнити такі поля з інформацією про компонент, який створюється:

Ancestor type – батьківський клас нащадка, що будується (обираємо для нашого прикладу клас кнопки TButton);

Class Name – ім‟я нового класу, що будується (тут напишемо TBtnNClick); Palette Page – сторінка палітри компонентів, на яку буде розміщено новий компонент. За замовчуванням це сторінка Samples. Можна зазначити одну

з існуючих сторінок, або ж задати нове ім‟я – відповідну нову сторінку палітри буде сформовано. Задамо ім‟я MyClass;

Unit file name – слід зазначити ім‟я нового модуля (unit) та шлях до нього. В цей unit буде розміщено код мовою C++, потрібний для побудови но-

вого класу. За замовчуванням імена файлів модуля збігаються з ім‟ям класу, –

за винятком першої літери T, – отже, якщо клас називається TBtnNClick, файли буде названо BtnNClick.cpp та BtnNClick.h. Щодо шляху до файла, то за замовчуванням C++ Builder встановлює шлях до власного бібліотечного ката-

логу LIB. Рекомендується змінити цей шлях і розмістити unit нового класу у власному каталозі, наприклад:

C:\STUDENTS\SEMESTR2\ТС104\Ivanov\BtnNClick.cpp

Search path – тут перелічено каталоги, в яких C++ Builder шукатиме unit нового класу. Якщо у попередньому пункті було зазначено повний шлях

Файл BtnNClick.cpp:

#include <vcl.h> #pragma hdrstop #include "BtnNClick.h"

#pragma package(smart_init)

//---------------------------------------------------------------

static inline void ValidCtrCheck(TBtnNClick *) { new TBtnNClick(NULL);

}

//---------------------------------------------------------------

__fastcall TBtnNClick::TBtnNClick(TComponent* Owner) : TButton(Owner)

{ NClick=0; // Початкове значення змінної кількості натискань

}

//----------------------------------------------------------------

void __fastcall TBtnNClick::Click(void)

{ // Збільшення значення змінної кількості натискань на 1

NClick++;

//Виведення значення кількості натискань на кнопці

Caption=Name+" ("+IntToStr(NClick)+") клацань";

//Подальше успадкування роботи методу Click()від класу TButton TButton::Click();

}

//----------------------------------------------------------------

namespace Btnnclick

{ void __fastcall PACKAGE Register()

{TComponentClass classes[1]= {__classid(TBtnNClick)}; RegisterComponents("MyClasses", classes, 0);

}

}

Першою у цьому файлі стоїть функція ValidCtrCheck(), яка запобігає вміщенню до нового класу віртуальних функцій. Далі йде конструктор класу, який ініціалізує поле NClick значенням 0. Новий конструктор тепер виконуватиме, окрім усіх дій батьківського конструктора, ще й додаткову інструкцію NClick=0. У такий спосіб він перекриває батьківський метод. Параметр конструктора Owner має тип TComponent*, тобто є вказівником на об‟єкт класу TComponent. Це означає, що “володарем” кнопки типу TBtnNClick може бути лише якийсь з компонентів C++ Builder.

Далі треба перекрити ще один метод класу TButton – метод Click. Функція Click() збільшує на одиницю лічильник натискань кнопки; формує властивість кнопки Caption як рядок, у якому до її імені Name дописано кількість натискань, і потім викликає успадкований метод TButton::Click(). Останнє зроблено для того, щоби, за винятком відображення кількості натискань, “поводження” кнопок нового типу нічим не відрізнялось від типу TButton.

Останньою є директива namespace і функція Register(), потрібна для реєстрації нового класу як компонента C++ Builder. Ця функція викликає біблі-

Btn->Parent=Form1;

// Координати розміщення нового компонента на формі

Btn->Left=70; Btn->Top=100;

Btn->Width=200; Btn->Height=30;

}

Власником об‟єкта, що тестується, є вікно форми Form1 (власник показано як параметр конструктора TBtnNClick). Властивість Parent створеного екземпляра класу (її задають обов‟язково) також дорівнює Form1, а це означає, що новий компонент Btn буде розміщено у вікні Form1. Після запуску проекту та натискання на стандартну кнопку “Створити нову кнопку” на формі з‟явиться новий компонент. При клацанні по цій кнопці, на ній з‟явиться повідомлення про кількість клацань, як це показано на формі з результатами роботи.

Наведемо ще один приклад створення та тестування нового компонента.

Приклад 14.8. Необхідно створити новий компонент − клас TSG як нащадок класу TStringGrid. Цей компонент повинен мати такі додаткові можливості:

при натисканні на клавішу <F11> його комірки заповнюватимуться випадковими цілими числами від 0 до 20;

при натисканні на клавішу <Esc> комірки компонента очищуватимуся;

при клацанні лівою кнопкою миші на будь-яку комірку розмір шрифту

їїтексту збільшуватиметься вдвічі, а при повторному клацанні – повертатиметься до початкового стану.

Розв‟язок. Для реалізації останньої з названих можливостей введемо додаткове поле flag логічного типу bool – прапорець, який змінюватиме власне значення після змінювання розміру шрифту з true на false та навпаки. Для опрацювання подій клацання лівою кнопкою миші до оголошення класу внесемо прототип Click (див. табл. 14.1). Також до оголошення класу впишемо прототип функції KeyPress (див. табл. 14.2) з метою опрацювання події натискання клавіші <F11>. Обидві функції оголосимо як DYNAMIC, що й дозволить перекрити зміст методу базового компонента.

Classes::TShiftState Shift)

Cells[j][i]=IntToStr(random(20)); // випадковими числами

// Подальше успадкування роботи методу KeyDown() від класу TStringGrid

TStringGrid::KeyDown(Key, Shift);

}

//------------------------------------------------------------

namespace Sg

{ void __fastcall PACKAGE Register()

{TComponentClass classes[1] = {__classid(TSG)}; RegisterComponents("Samples", classes, 0);

}

}

Протестуємо модуль нового компонента. Варіант форми проекту для тестування:

Створимо новий компонент як динамічну зміну SGt, задамо координати розташування та деякі властивості компонента.

Файл Unit1.cpp

#include <vcl.h> #pragma hdrstop

#include "SG.cpp" // Долучення модуля нового компонента

#include "Unit1.h" //-----------------------------------------------------------

#pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1;

//-----------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)

{

}

треба створити пакет і бажано розмістити його у власному каталозі. Для створення пакета слід виконати такі дії:

 виконати команду File / New і в діалоговому вікні New Items обрати піктограму Package. Після чого у вікні Package буде відображено склад пакета:

 виконати команду File / Save As для зберігання у власному каталозі. Ім‟я Package1 можна змінити, наприклад, на MyCompn.

Створений пакет складається з двох файлів: файл з розширенням .bpk та файл з розширенням .cpp, який містить інструкції щодо розміщення побудованих класів в особливій динамічній бібліотеці компонентів C++ Builder. Після компіляції цих файлів новим компонентом можна буде користуватися.

Як приклад розглянемо послідовність дій при компіляції компонента BtnNClick, розглянутого на початку п. 14.9.2. Для цього виконаємо дії у такій послідовності.

У головному меню оберемо опцію Component / Install Component, що спричинить появу вікна Install Component.

Перейдемо на сторінку Into new package цього вікна і задамо такі параметри нового пакета:

Unit file name – шлях (місцеперебування файла, яке записується у вигляді послідовності імен каталогів, розпочинаючи з кореневого) та ім‟я бібліотеки з визначенням нового класу. Наприклад, при створенні нового компонента класу TBtnNClick (див. п. 14.9.2) визначимо шлях:

C:\STUDENTS\SEMESTR2\ТС104\Ivanov\BtnNClick.cpp