Mirsaid Aripov, Nurillo Otaxanov

15.3 – listing. NkEdit komponentasining ilova moduli

unit tstNkEdit_;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, NkEdit;  komponenta moduli

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 komponentasi

implementation

{$R *.dfm)

procedure TForm1.FormCreate(Sender: TObject);

begin

 komponenta yaratiladi va formaga joylanadi

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.

Testdan o`tkazilayotgan komponenta FormCreate protsedurasi bilan komponenta konstruktorini chaqirish orqali yaratiladi. Unga parametr sifatida Self qiymati beriladi, bu esa ilova formasi yaratilgan komponentaning egasi ekanligini anglatadi.

Komponenta yaratilganidan keyin, uning Parent hususiyatiga qiymat berish kerak. Biz qarayotgan holda Parent hususiyatiga Self qiymati berilgan. 15.3-rasmda NkEdit komponentasini testdan o`tkazish vaqtidagi ilova formasi tasvirlangan.