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

Вы часто используете в своих программах одни и те же куски кода для обработки стандартных компонент? Если да, то вам стоит прочитать эту статью. Здесь мы рассмотрим основы создания компоненты, и в качестве примера создадим одну простую компоненту.

Для начала нужно определиться, какую компоненту будем создавть. Для примера сделаем компоненту на базе стандартной компоненты дельфи TEdit. Эта компонента будет представлять собой поле ввода, в которое можно будет ввести только число с возможностью ввода одного знака "минус" в начале числа. Пусть компонента будет называться TNEdit. Создайте отдельную папку для компоненты.

Для начала создания новой компоненты запустите дельфи и выбирите из меню Component команду New Component. В появившемся окне в поле Ancestor Type впишите TEdit [StdCtrls] (или можно выбрать из ниспадающего списка). В поле Class Name нужно вписать имя класса компоненты - TNEdit. Из списка Palette Page выберите существущюю вкладку палитры компонент, либо введите свое название вкладки (она будет создана), где будет размещаться наша компонента. В поле Unit file name введите путь до папки, где будут размещаться модуль компоненты. Все. Жмите Ok (не Install!!!) и к текущему проекту добавится сгенерированная дельфи заготовка модуля компоненты.

Редактируем шаблон

Тут я просто приведу текст шаблона, к какому виду его нужно привести. А в конце кода опишу все изменения.

unit NEdit1;

interface

uses

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

type

TNEdit1 = class(TEdit)

private

EditNumber : single;

function getNum : single;

procedure setNum(val : single);

protected

procedure KeyPress(var Key : Char); override;

public

{ Public declarations }

published

Constructor Create(AOwner : TComponent); override;

property Num : single

read getNum

write setNum;

end;

procedure Register;

implementation

procedure Register;

begin

--> ЧИТАТЬ ПОЛНОСТЬЮ <--