Работа 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 завершено.

Дата добавления: 2014-12-27