Тестирование модуля компонента
Листинг 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.
Тестируемый компонент создается процедурой обработки события Formcreate (Создание формы) посредством вызова конструктора компонента, которому в качестве параметра передается значение self, показывающее, что владельцем компонента является форма приложения.
После создания компонента обязательно должен быть выполнен важный шаг: свойству Parent необходимо присвоить значение. В данном случае тестируемый компонент находится в форме приложения, поэтому свойству Parent присваивается значение self.
На рис. 16.3 приведено окно программы Тест компонента NkEdit во время ее работы, после ввода числа в поле редактирования и щелчка на кнопке Тест.
Рис. 16.3. Тестирование компонента. Поле ввода – компонент NkEdit