Работа 1. Создание надписей и установка кнопок на форме
Надписи на компонентах можно менять с помощью свойства Caption (см. рис. В окне Инспектора объектов это свойство выделено). Для изменения атрибутов шрифта (стиль, размер, цвет и др.) пользуются свойством Font. Свойство Vizible используется для разрешения (значение True) или запрещения (значение False) отображения компонента на форме (после запуска программы). Свойство Enabled определяет возможность активизации данного компонента (Например, при значении False этого свойства кнопка не нажимается, пункт меню неактивен и т. д.). Вид курсора мыши над формой и над ее отдельными элементами задается свойством Cursor. Все компоненты имеют свойство Name, в котором хранятся их уникальные имена, присваиваемые им Delphi и которые могут быть изменены вами на свое усмотрение, но с соблюдением правил языка Pascal. Расположение компонентов относительно верхней и левой границ формы или другого контейнера, куда компоненты помещены (например, Panel), задаются свойствами: Top и Left. Размеры компонента (высота и ширина) задаются свойствами Height и Width. Последние четыре свойства меняются автоматически при выполнении соответствующих операций мышью или комбинаций клавиш Ctrl+<стрелки> и Shift+<стрелки>. Свойство Align производит упорядочение компонентов относительно друг друга или их контейнера или формы.
Пример 1.
Создайте Delphi-программу, которая выводить
окно с заголовком: «ПРИМЕР
1», с надписью
«Моя первая программа» посередине окна,
большими буквами (размер 24) красного
цвета, а также с кнопкой «Далее», в нижней
части окна. Причем при нажатии на эту
кнопку надпись «Моя первая программа»
сменится на – «СПАСИБО», а кнопка «Далее»
исчезнет. Курсор мыши над надписью
«СПАСИБО» пусть имеет вид:
.
Решение. Приступим к процессу конструирования формы.
Запустите среду
Delphi. Для
изменения заголовка формы
щелкните сначала на форму, а затем в
окне Инспектора объектов выберите
свойство Caption
и измените
его значение Form1
на ПРИМЕР
1. Для
создания надписи на форме
- одним щелчком левой кнопки мыши выберите
компонент Label
(т. е.
в палитре компонентов, в главном окне,
на закладке Standard),
а затем щелкните в то место на форме,
куда хотите нанести надпись. На форме
появиться надпись «Label1»,
выделенная квадратиками. Измените
значение свойства
Caption
на: «Моя
первая программа». Для
изменения атрибутов шрифта
– щелкните сначала на свойство Font,
а затем - на маленькую кнопку, которая
появилась в конце этой строки. После
этого откроется окно для ввода атрибутов
шрифта созданной нами надписи. Изменим
их по требованиям условия задачи.
Перемещая с помощью мыши надпись можно
расположить на любом месте формы. Для
создания на форме кнопки
«Далее» необходимо: выбрать компонент:
Button
(т. е.
),
установить его на форму (в необходимое
место), изменить размеры кнопки (растягивая
или сдавливая с помощью мыши), нанести
на кнопке надпись «Далее» (пользуясь
свойствами: Caption
и Font).
Мы закончили конструирование формы.
Запустите программу (нажмите F9).
Получили окно первой вашей программы.
Но нажатие кнопки «Далее» не вызывает
никаких действий, потому что мы еще не
написали программу обрабатывающую
нажатие кнопки (т. е. не создан обработчик
события OnClick
для кнопки). Закройте окно вашей программы
(нажатием крестика в верхнем правом
углу окна), и вернитесь в среду Delphi.
Приступим к процессу кодирования. Для создания обработчика события OnClick – произведите двойной щелчок левой кнопкой мыши на соответствующем компоненте и мы автоматически попадем в окно кода и даже в «каркас» процедуры обработчика события OnClick приготовленного для нас средой Delphi, где нам остается написать только тело процедуры. Произведем двойной щелчок мыши на кнопке «Далее». Мы оказались в окне кода и внутри необходимой нам процедуры. Теперь вспомним, что нам требуется от кнопки: изменить свойство Caption на «СПАСИБО». Для этого вспомним имя (свойство Name) этой надписи. Так как мы имя не меняли, а по умолчанию Delphi присвоил ей имя: Label1. Запишем следующую строку в программу:
Label1.Caption:=’СПАСИБО’;
Запомните: имя компонента от его свойств и методов, в программной строке, разделяют точкой. Запустите программу и проверьте действие кнопки и закройте. Если учесть требования задачи, то в программу еще необходимо ввести следующие две строки:
Button1.Visible:=false; //кнопка исчезнет (Button1- это имя кнопки т. е. свойство Name) .
Label1.Cursor:=crNo;
//курсор
мыши над надписью Label1будет имеет вид:
Решение примера 1 завершено.
Упражнения
Реализуйте на ПК Пример1.
Внесите в Пример1 следующие изменения:
а) Кнопка «Далее» после ее нажатия, не исчезает, а становится неактивной;
б) Надпись на кнопке меняется на "отмена";
в) Размер кнопки становится почти в два раза больше;
г) Надпись «Спасибо» меняет цвет с красного на зеленый, размер с 24 на 48 , а расположение надписи становится ближе к верхнему краю окна;
д) Курсор мыши над надписью «спасибо» имеет вид: «песочных часов».
Создать обработчик события OnClik для надписи «спасибо», следующих действий: при нажатии на надпись «спасибо» (один щелчок левой кнопкой мыши) исчезают данная надпись и кнопка «отмена», а на середине окна появляется надпись «Вот и все», со следующими атрибутами: размер букв - 72, шрифт- Times New Roman, стиль - полужирный курсив, цвет - синий.
Составьте "Программу для развития навыков управления мышью и успокаивания нервов" : в окне поочередно появляются кнопки без надписей, разных размеров и форм, с разными координатами. Нажатие на кнопку вызывает ее исчезновение и появление другой и т.д. В процессе конструирования создайте произвольную заставку для программы с указанием названия программы имени программиста и кнопки «СТАРТ», при нажатии которой исчезает заставка и начинает работу программа. Заставку создайте на отдельной панели (компонент Panel).
Составьте программу для изучения цифр и цветов для детей дошкольного возраста. В нижней части окна расположите десять кнопок с цифрами 0-9 и семь кнопок с цветами радуги. При нажатии каждой кнопки на все окно появляется соответствующая цифра выбранного цвета.