C++ Builder - вопросы программирования




Листинг 6 5



Листинг 6.5.

Тест компонента NkEdit
#include <vcl.h> #pragma hdrstop #include "tk_.h" #include "nkedit.cpp" #pragma package(smart_init) #pragma resource "*.dfm" TForml *Forml; // форма TNkEdit *NkEdit; // компонент программиста // конструктор формы __£astcall TForml::TForml(TComponent*Owner):TForm(Owner) { // создадим и инициализируем компонент NkEdit NkEdit = new TNkEdit(Forml); NkEdit->Parent = Forml; NkEdit->Text = "0"; NkEdit->Left = 10; NkEdit-ХГор = 100; // настроим компонент // зададим границы диапазона NkEdit->Min = -100; NkEdit->Max = 100; NkEdit->EnableFloat = true; // разрешен ввод дробных чисел } // обработка события FormCreate void __fastcall TForml::FormCreate(TObject *Sender) { AnsiString st = "Введите "; // информация о компоненте if (NkEdit->EnableFloat) st = st + "дробное"; else st = st + "целое"; st = st + " число от "; st = st + FloatToStr(NkEdit->Min); st = st + " до "; st = st + FloatToStr(NkEdit->Max); Label2->Caption = st; }







Содержание  Назад  Вперед