|
|
|
Перед добавлением нового
компонента в палитру компонентов необходимо всесторонне его проверить. Для этого
надо создать приложение, использующее компонент и убедиться, что компонент работает
так, как надо.
Во время создания формы
приложения нельзя добавить в форму компонент, значка которого нет в палитре
компонентов. Однако такой компонент может быть добавлен в форму динамически,
т. е. во время работы приложения.
Создается тестовое
приложение обычным образом: сначала создается форма приложения, а затем — модуль
приложения.
Вид формы приложения
тестирования компонента NkEdit- приведен на рис. 16.2.
Рис. 16.2. Форма
приложения Тест компонента NkEdit
Форма содержит две
метки и командную кнопку. Первая метка предназначена для вывода информационного
сообщения, вторая метка (на рисунке она выделена) используется для вывода числа,
введенного в поле редактирования. Самого поля редактирования компонента NkEdit
в форме нет. Этот компонент будет создан динамически во время работы программы,
но для него оставлено место над полем метки.
После создания формы
в модуль приложения, автоматически сформированный Delphi, необходимо внести
следующие дополнения:
1. В список используемых
модулей (раздел uses) добавить имя модуля тестируемого компонента (NkEdit).
2. В раздел объявления
переменных (var) добавить инструкцию объявления компонента. Здесь следует вспомнить,
что компонент является объектом, поэтому объявление компонента в разделе переменных
не обеспечивает создание компонента, а только генерирует указатель на компонент,
следовательно необходима инструкция вызова конструктора объекта, которая действительно
создает компонент (объект).
3. Для формы приложения
создать процедуру обработки события oncreate, которая вызовом конструктора тестируемого
компонента создаст компонент и установит значения его свойств.
В листинге 16.3 приведен
модуль приложения тестирования компонента NkEdit.
Листинг 16.3.
Тест компонента NkEdit
unit
tstNkEdit_; interface
uses
Windows, Messages, SysUtils,
Variants, Classes, Graphics,
Controls,Forms,
Dialogs, StdCtrls,
NkEdit;
// ссылка на модуль компонента
type
TForm1
= class(TForm)
Label1:
TLabel;
Label2:
TLabel;
Buttonl:
TButton;
procedure
FormCreate(Sender: TObject);
procedure ButtonlClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1:
TForm1;
myEdit:
TnkEdit; // компонент NkEdit
implementation
{$R
*.dfm)
procedure TForm1.FormCreate(Sender: TObject);
begin
//
создадим компонент и поместим его на форму
myEdit := TNkEdit.Create(self);
myEdit.Parent := self;
myEdit.Left := 8;
myEdit.Top := 64;
end;
procedure TForm1.ButtonlClick(Sender: TObject);
begin
label2. Caption := FloatToStr (myEdit .Numb) ;
end;
end.
Тестируемый компонент
создается процедурой обработки события Formcre-ate (Создание формы) посредством
вызова конструктора компонента, которому в качестве параметра передается значение
self, показывающее, что владельцем компонента является форма приложения.
После создания компонента
обязательно должен быть выполнен важный шаг: свойству Parent необходимо присвоить
значение. В данном случае тестируемый компонент находится в форме приложения,
поэтому свойству Parent присваивается значение self.
На рис. 16.3 приведено
окно программы Тест компонента NkEdit во время ее работы, после ввода
числа в поле редактирования и щелчка на кнопке Тест.
Рис. 16.3. Тестирование компонента. Поле ввода — компонент NkEdit
|
|
|
Дело в том, что в его постановке и выводах произведена подмена, аналогичная подмене в школьной шуточной задачке на сообразительность, в которой спрашивается:
- Cколько яблок на березе, если на одной ветке их 5, на другой ветке - 10 и так далее
При этом внимание учеников намеренно отвлекается от того основополагающего факта, что на березе яблоки не растут, в принципе.
В эксперименте Майкельсона ставится вопрос о движении эфира относительно покоящегося в лабораторной системе интерферометра. Однако, если мы ищем эфир, как базовую материю, из которой состоит всё вещество интерферометра, лаборатории, да и Земли в целом, то, естественно, эфир тоже будет неподвижен, так как земное вещество есть всего навсего определенным образом структурированный эфир, и никак не может двигаться относительно самого себя.
Удивительно, что этот цирковой трюк овладел на 120 лет умами физиков на полном серьезе, хотя его прототипы есть в сказках-небылицах всех народов всех времен, включая барона Мюнхаузена, вытащившего себя за волосы из болота, и призванных показать детям возможные жульничества и тем защитить их во взрослой жизни. Подробнее читайте в FAQ по эфирной физике.
|
|
 |
