logo search
Лабораторная работа6

Испытание компоненты

На вкладке My Components появится наша компонента. Создадим новый проект. Выберем компоненту Random и кнопку Button и разместим их на форме. В Инспекторе объектов задайте значения свойств min и max компоненты Random.

На вкладке Events Инспектора объектов присутствует наше событие OnGetMax. Запишем туда код:

procedure TForm1.Random1GetMax (Sender: TObject);

begin

Form1.Caption:='Event GetMax';

end;

Для кнопки выберем событие OnClick и запишем код:

procedure TForm1.Button1Click (Sender: TObject);

begin

Random1.GetNumber;

end;

Теперь запустим приложение и проверим работоспособность компоненты.