П`ятниця, 29.11.2024, 02:18
Головна Реєстрація RSS
Вітаю Вас, Гість
Меню сайту
Реклама
Категорії розділу
Архітектура ПК [1]
Архітектура та експлуатація персонального комп'ютера
СПЗ [12]
Системне програмне забезпечення та операційні системи
Комп'ютерна графіка [25]
КСМ [28]
Комп'ютерні системи та мережі
ІСІТО [1]
Інформаційні системи і технології обліку
Бухгалтерський облік [0]
АМтП [10]
Алгоритмічні мови та програмування
Копирайт рерайт [1]
СУБД [18]
Системи управління базами даних
ОКТ практикум [2]
Основи комп'ютерних технологій практикум
Інформатика (практ) [1]
інформатика практикум, практичні заняття
ТіОБВ [61]
Технологія і організація будівельного виробництва
ОСАПр [6]
Основи систем автоматизованого проектування, AutoCAD, ArchiCAD
ТіОБВ (заочники) [1]
Пошук
Статистика
Яндекс.Метрика
Онлайн всього: 3
Гостей: 3
Користувачів: 0
Форма входу
Календар
«  Вересень 2013  »
ПнВтСрЧтПтСбНд
      1
2345678
9101112131415
16171819202122
23242526272829
30
Архів записів
Головна » 2013 » Вересень » 27 » Кнопка, що рухається
10:00
Кнопка, що рухається

Цель работы - создать программу, выполняющую следующие действия: 1. По щелчку мышью на кнопке кнопка либо останавливается, либо двигается.

Практическая работа № 6 Двигающая кнопка

Рис. 21.

2. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.

Описание плана разработки программы

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: кнопку Button, таймер Timer. Кнопка включает и выключает таймер, а таймер двигает кнопку.

3. Выполнить следующие действия:

Таблица 5.

Выделенный объект

Вкладка окна Object Inspector

Имя свойства/ имя события

Действие

Forml

Properties

Caption

Установка имени формы "Двигающаяся кнопка"

Timerl

Properties

Enabled

Установить значение свойства Enabled = false

Свойство Enabled определяет, включен или выключен таймер (по умолчанию, он включен).

Interval

Interval = 100

Свойство Interval определяет интервал в миллисекундах между возникновением событий OnTimer (по умолчанию интервал равен 1 секунде).

Events

OnTimer

Button1.Left := Button1.Left - 5; if Button1.Left < 10

then Button1.Left := 100;

Buttonl

Properties

Caption

Установка имени кнопки "Сменить заголовок окна"

Default

Выбрать в раскрывающемся списке значение True

Events

OnClick

Timer1.Enabled := not Timer1.Enabled;

4. Сохраните проект, запустите и протестируйте его.

Категорія: АМтП | Переглядів: 562 | Додав: Gryzley | Рейтинг: 0.0/0
Всього коментарів: 0
Ім`я *:
Email *:
Код *: