Тест компонента 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 во время ее работы, после ввода числа в поле редактирования и щелчка на кнопке Тест.

Содержание раздела

---

---