Тестирование компонента
Листинг 6.5. Тест компонента NkEdit.
#include <vcl.h>
#pragma hdrstop
#include "tk_.h"
#include "nkedit.cpp"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForml *Forml; // форма
TNkEdit *NkEdit; // компонент программиста
// конструктор формы
__£astcall TForml::TForml(TComponent*Owner):TForm(Owner)
{
// создадим и инициализируем компонент
NkEdit NkEdit = new TNkEdit(Forml);
NkEdit › Parent = Forml;
NkEdit › Text = "0";
NkEdit › Left = 10; NkEdit-ХГор = 100;
// настроим компонент
// зададим границы диапазона NkEdit › Min = – 100;
NkEdit › Max = 100;
NkEdit › EnableFloat = true;
// разрешен ввод дробных чисел }
// обработка события FormCreate
void __fastcall TForml::FormCreate(TObject *Sender)
{
AnsiString st = "Введите ";
// информация о компоненте if (NkEdit › EnableFloat)
st = st + "дробное";
else st = st + "целое";
st = st + " число от ";
st = st + FloatToStr(NkEdit › Min);
st = st + " до ";
st = st + FloatToStr(NkEdit › Max);
Label2 › Caption = st; }
Рис. 6.З. Тестирование компонента: поле ввода – компонент NkEdit
Тестируемый компонент создает и настраивает конструктор формы. Следует обратить внимание, что свойству Parent созданного компонента обязательно надо присвоить значение. Если этого не сделать, то компонент на форме не появится. Информацию о настройках созданного компонента выводит функция FormCreate. На рис. 6.3 приведен вид окна программы "Тест компонента NkEdit во время ее работы.