Programming: Delphi

Перед добавлением нового компонента в палитру компонентов необходимо всесторонне его проверить. Для этого надо создать приложение, использующее компонент и убедиться, что компонент работает так, как надо.

Во время создания формы приложения нельзя добавить в форму компонент, значка которого нет в палитре компонентов. Однако такой компонент может быть добавлен в форму динамически, т. е. во время работы приложения.

Создается тестовое приложение обычным образом: сначала создается форма приложения, а затем — модуль приложения.

Вид формы приложения тестирования компонента NkEdit- приведен на рис. 16.2.

Рис. 16.2. Форма приложения Тест компонента NkEdit

Форма содержит две метки и командную кнопку. Первая метка предназначена для вывода информационного сообщения, вторая метка (на рисунке она выделена) используется для вывода числа, введенного в поле редактирования. Самого поля редактирования компонента NkEdit в форме нет. Этот компонент будет создан динамически во время работы программы, но для него оставлено место над полем метки.

После создания формы в модуль приложения, автоматически сформированный Delphi, необходимо внести следующие дополнения:

1. В список используемых модулей (раздел uses) добавить имя модуля тестируемого компонента (NkEdit).

2. В раздел объявления переменных (var) добавить инструкцию объявления компонента. Здесь следует вспомнить, что компонент является объектом, поэтому объявление компонента в разделе переменных не обеспечивает создание компонента, а только генерирует указатель на компонент, следовательно необходима инструкция вызова конструктора объекта, которая действительно создает компонент (объект).

3. Для формы приложения создать процедуру обработки события oncreate, которая вызовом конструктора тестируемого компонента создаст компонент и установит значения его свойств.

В листинге 16.3 приведен модуль приложения тестирования компонента NkEdit.

Листинг 16.3. Тест компонента NkEdit

unit tstNkEdit_; interface

uses

Windows, Messages, SysUtils,

Variants, Classes, Graphics,

Controls,Forms, Dialogs, StdCtrls,

NkEdit; // ссылка на модуль компонента

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Buttonl: TButton;

procedure FormCreate(Sender: TObject);

procedure ButtonlClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

myEdit: TnkEdit; // компонент NkEdit

implementation

{$R *.dfm)

procedure TForm1.FormCreate(Sender: TObject);

begin

// создадим компонент и поместим его на форму

myEdit := TNkEdit.Create(self);

myEdit.Parent := self;

myEdit.Left := 8;

myEdit.Top := 64;

end;

procedure TForm1.ButtonlClick(Sender: TObject);

begin

label2. Caption := FloatToStr (myEdit .Numb) ;

end;

end.

Тестируемый компонент создается процедурой обработки события Formcre-ate (Создание формы) посредством вызова конструктора компонента, которому в качестве параметра передается значение self, показывающее, что владельцем компонента является форма приложения.

После создания компонента обязательно должен быть выполнен важный шаг: свойству Parent необходимо присвоить значение. В данном случае тестируемый компонент находится в форме приложения, поэтому свойству Parent присваивается значение self.

На рис. 16.3 приведено окно программы Тест компонента NkEdit во время ее работы, после ввода числа в поле редактирования и щелчка на кнопке Тест.

Рис. 16.3. Тестирование компонента. Поле ввода — компонент NkEdit

Назад | Оглавление | Вперёд