Mirsaid Aripov, Nurillo Otaxanov

15.1-listing. Komponenta modulining shabloni

unit NkEdit;

interface

uses Windows, Messages, SysUtils, Classes, Controls, StdCtrls;

type

TEdit1  class(TEdit)

private

{ Private declarations }

protected

{ Protected declarations }

public

{ Public declarations }

published

{ Published declarations }

end;

procedure Register;

implementation

procedure Register;

begin

RegisterComponents('Samples', [TNkEdit]);

end;

end.

Yangi klassni e`lon qilishda faqat ota klassi ko`rsatilgan halos. Realizatsiya bo`limidagi Register protsedurasi yangi komponentani joylash uchun mavjud qurollar palitrasi e`lon qilinadi.

Yangi komponenta klassi e`loniga quyidagi qo`shimchalarni kiritish lozim: hususiyatlar, ularning maydonlari, maydondagi ma`lumotlar bilan ishlash uchun funksiyalar, ma`lumotlar kiritish protseduralari, konstruktor va destruktor.

15.2-listingda NkEdit komponentasi modulining o`zgartirishlar kiritilganidan keyingi holati keltirilgan.