Home

Page 49
Page 49
background image

 Глава 2

Здесь устанавливаются значения ширины и высоты окна. В визуальном ре-

дакторе есть проблемы с установкой этих значений, а так мы программно

можем задать то, что нам нужно. Ваши значения могут быть другими, все

зависит от того, какого размера получилось изображение вашей кнопки.

Моя вышла габаритами 21 х

Теперь перенесите на форму компонент Timer с палитры компонентов

System. В его свойствах нужно изменить значение

 По умолчанию оно

равно 1 000 миллисекунд (1 секунда). Для нас больше подойдет 10 000 миллисе-

кунд (10 секунд). Не интересно, если Пуск будет летать каждую секунду.

С такими темпами он может даже не успеть приземлиться.

Теперь перейдите на вкладку Events и дважды щелкните справа в строке со-

бытия onTimer. Будет создан обработчик события, который будет вызывать-

ся каждые 10 секунд (значение свойства interval). Здесь мы развернем

центр управления полетом кнопки Пуск. В этом обработчике напишите сле-

дующее:

донг 2.1. Обработчик события OnTimer

procedure

 TObject);

var

h:THandle;

begin

 //Сделать окно видимым

//Установить верхнюю позицию окна в левый нижний угол экрана

//Создается пустой указатель h, который будет использоваться для задержки

//Сейчас будем поднимать кнопку
//От 1 до 80 выполнять действия от begin до end
for

 to 80 do

begin

//Увеличить значение верхней позиции окна  кнопкой

Repaint; //Перерисовать окно


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.