Реферат: Созание компоненты

end.

Компонента реагирует на нажатие пользователем клавиши в поле ввода процедурой TNEdit.KeyPress. Eю мы заменили соответствующюю процедуру базового класса. В качестве параметра процедуре передается нажатая клавиша (вернее её код). Перед выводом в рабочую область числа мы проверяем это число. Если оно не содержит цифру, код клавиш Enter и Backspace, или вводится минус в середине числа, либо вводится второй разделитель(.), то соответствующему коду клавиши присваевается #0 и символ не выводится в рабочюю область. Для проверки работоспособности компоненты мы её протестируем.

Тестируем компоненту

Положите на форму кнопку (Button1) и метку (Label1). В Uses добавьте имя нашего модуля TNEdit. В раздел обьявления приложения добавьте инструкцию обьявления компоненты. А в событии OnCreate формы добавьте процедуру создания компоненты. Вот что должно у вас получиться:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, NEdit1;

type

TForm1 = class(TForm)

Label1: TLabel;

Button1: TButton;

Edit1: TEdit;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

NEdit_ : TNEdit1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

NEdit_ := TNEdit1.Create(self);

NEdit_.Parent :=self;