Предыдущая страница реферата | 1  2  3  4  5 | Следующая страница реферата

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;

NEdit_.Top := 16;

NEdit_.Left := 24;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Label1.Caption := FloatToStr(NEdit_.Num);

end;

end.

Наша компонента динамически создается в процедуре создания формы, т.е. в момент создания формы. Скомпилируйте программу, запустите и убедитесь, что все работает как надо. Если возникли ошибки при компиляции либо какие то вопросы, то милости просим на наш форум.

Устанавливаем компоненту на палитру компонент.

У всех компонент на палитре есть свои значки. А мы то чем хуже? Давайте нарисуем иконку для нашей компоненты. В меню Tools выбирайте команду Image Editor (если вы его установили в момент установки дельфи). В появившемся окне выбираем File->New->Component Resource File. Создастся пустой файл ресурсов для компонент. Правой кнопкой щелкаем на Contents и выбираем New->Bitmap. Устанавливаем размер 24x24 и 16 цветов. Что бы переименовать ресурс, щелкните правой кнопкой мыши на Bitmap1 и выбирите команду Rename. Установите имя ресурса TNEdit1(очень важно!!!). Дважды щелкните на TNEdit1. Откроется окно редактирование битового образа. Нарисуйте иконку и сохраните файл ресурсов в ту папку, где находится модуль NEdit1 под именем NEdit1.dcr.

Рекомендуем скачать другие рефераты по теме: доклад по обж, ответ 3.





Предыдущая страница реферата | 1  2  3  4  5 | Следующая страница реферата