- •Лабораторная работа 1 Упражнение Использование стандартных компонентов
- •1. Создайте новый проект типа vcl Forms Application.
- •1. Создайте новый проект типа vcl Forms Application.
- •1. Создайте новый проект типа vcl Forms Application.
- •Упражнение Кнопка
- •Упражнение Щелчок на кнопке
- •Упражнение Изменение заголовка формы-2
- •Упражнение Главная форма
- •Упражнение Картинная галерея
- •Упражнение Картинная галерея-2
1. Создайте новый проект типа vcl Forms Application.
2. В инспекторе объектов измените значение свойства Name на ButtonExemple, а свойства Caption — на Кнопка.
3. Поместите кнопку в форму.
4. Измените значение свойства Name кнопки на MyButton.
5. Измените значение свойства Caption кнопки на &Щелкать здесь. Обратите внимание: в надписи на кнопке буква, перед которой стоит символ "&", подчеркнута. В данном случае это буква "Щ". Значит, теперь кнопке присвоена комбинация клавиш быстрого вызова <Щ>.
6. Нажав клавишу <F9>, запустите программу.
7. Щелкните на кнопке. Кнопка примет такой вид, будто она нажата. Поскольку с кнопкой еще не связан какой-либо код, никакой реакции на щелчок на ней не будет.
8. Завершите работу программы.
Если в названии кнопки, которое отображается на экране, одна из букв подчеркнута, значит, кнопке присвоена комбинация быстрых клавиш. Нажатие клавиши с подчеркнутой буквой приведет к активизации кнопки аналогично щелчку мышью на ней. Но при этом необходимо учитывать регистр и раскладку клавиатуры, что не всегда удобно.
В данном примере для использования комбинации быстрых клавиш клавиатура должна быть переключена на русский язык. Кроме того, должен использоваться верхний регистр (для оперативного перехода к верхнему регистру необходимо нажать клавишу <Shift> или <Caps Lock>; после этого постоянно будет включен верхний регистр, о чем свидетельствует индикатор СарsLоск).
Что делать, если в названии кнопки должен отображаться символ "&"? Ведь если поместить его в название, то он сделает следующую букву подчеркнутой, а сам виден не будет. Для решения этой проблемы используется следующее правило: символ "&" отображается в названии кнопки, если в свойстве Caption записаны два стоящих подряд символа — "&&". Например, чтобы название кнопки имело вид This & Тhat, в свойство Caption необходимо записать строку "This && That". При этом никакая комбинация клавиш быстрого вызова кнопке присвоена не будет.
Не бойтесь экспериментировать с этими компонентами. Попробуйте изменять другие их свойства. Худшее, что можно сделать, — нарушить работу Delphi (что крайне маловероятно). Тогда придется всего лишь перезапустить программу (в крайнем случае — переустановить).
Упражнение Кнопка
В этом упражнении создается программа, в которой щелчок на одной кнопке открывает надпись, и щелчок на другой кнопке скрывает надпись.
Создайте проект. В Строке заголовка формы укажите название окна проекта. Для этого в Инспекторе объектов, в свойстве Caption (заголовок) для формы, запишите: «Кнопка». На рис. показан вид формы.
Сейчас имя формы Forml. Дайте ей имя FormKnopka. Для этого надо в свойстве Name (имя) записать: FormKnopka. В программной части появилась запись:
TFormKnopka = class (TForm). Произошло объявление класса TFormKnopka.
Рис. Расположение объектов на форме «Кнопка»
Теперь следует сохранить модуль в папке «1» под именем UnitKnopka и в той же папке сохранить проект под именем ProjectKnopka.
На странице Standard (стандартные) выберите компонент TButton (кнопка) и щелкните в любом месте формы. При этом на форме появится кнопка, и в Инспекторе объектов будут отображаться ее свойства. В свойстве Caption (заголовок) для кнопки запишите: «Кнопка1». В свойстве Name (имя) для кнопки запишите: bt_Knopkal. В программной части появилась запись: bt_Knopkal: TButton; — объявлен объект bt_Knopkal, являющийся экземпляром класса TButton.
Выберите на странице Standard (стандартные) компонент TLabel (метка). Щелкните на поле формы, и на нем появится объект Label1, а Инспектор объектов отобразит его свойства. Свойство Visible (видимый) для объекта Labell надо установить в False (ложь). Это значит, что текст не будет видимым. В свойстве Caption (заголовок) запишите: «Привет!». Выберите параметры для шрифта с помощью свойства Font (шрифт).
Нажмите клавишу F9 на клавиатуре для запуска проекта. Убедитесь, что в окне программы есть только кнопка. Закройте окно программы.
Для того чтобы при щелчке на кнопке появлялась надпись «Привет!», надо написать код, обрабатывающий событие «щелчок на кнопке». Выделите кнопку мышью, в Инспекторе объектов откройте лист Events (свойства), на котором выберите событие OnClick (щелчок указателем мыши), и дважды щелкните в пустом поле, находящемся рядом с названием события.
При этом откроется программная часть проекта, в которой добавилась следующая запись:
procedure TFormKnopkal.bt_KnopkalClick(Sender: TObject) ;
begin
end;
Это заготовка процедуры обработки события OnClick (щелчок).
Между словами begin (начало) и end (конец) надо записать текст процедуры, состоящий из оператора:
FormKnopka.Labell.Visible:=True;
Этот оператор присваивает свойству Visible (видимый) метки Labell, находящейся на форме FormKnopka, значение True (истина).
Запустите программу и убедитесь, что она работает.
Теперь несколько усовершенствуйте программу, добавив кнопку, удаляющую слово «». Добавьте на форму еще одну кнопку (TButton). В свойстве Caption (заголовок) для кнопки запишите: «Кнопка2». В свойстве Name (имя) для кнопки запишите: bt_Knopka2. Выделите кнопку мышью, в Инспекторе объектов откройте лист Events (события), на котором выберите событие OnClick (щелчок), и дважды щелкните в пустом поле. Запишите оператор для этой процедуры:
FormKnopka.Labell.Visible:=False;
Сохраните изменения и запустите программу. На этом конструирование проекта приложения закончено.
Здесь представлен листинг всей программы с комментариями:
unit UnitKnopka;
interface //здесь начинается интерфейсный раздел Модуля
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; //стандартные Модули, подключаемые к данному Модулю
type
TFormKnopka = class(TForm)
// объявление класса TFormKnopka bt_Knopkal: Tbutton;
{объявление Объекта bt_Knopkal класса TButton} Labell: Tlabel;
// объявление Объекта Labell класса TLabel btKnopka2: Tbutton;
(объявление Объекта bt_Knopka2 класса TButton) procedure bt_KnopkalClick(Sender: Tobject);
(объявление процедуры btKnopkalClick} procedure bt_Knopka2Click(Sender: Tobject); (объявление процедуры btKnopka2Click) private
( Private declarations } public
( Public declarations } end;
var
FormKnopka: TFormKnopka;
(объявление Объекта FormKnopka типа TFormKnopka, являющегося экземпляром класса TFormKnopka) implementation
// здесь начинается раздел реализации Модуля
($R *.DFM)
procedure TFormKnopka.bt_KnopkalClick(Sender: TObject); begin
FormKnopka.Labell.Visible:=True;
(оператор, делающий метку видимой) end;
procedure TFormKnopka.bt_Knopka2Click(Sender: TObject); begin
FormKnopka.Labell.Visible:=False;
(оператор, делающий метку невидимой) end; end. // конец Модуля
Вы уже заметили, что некоторые слова в программе выделены жирным шрифтом. Эти слова называются зарезервированными или служебными. Они выполняют свои определенные функции в программе и их нельзя применять как-либо по-другому (например, называть так переменную). То, что служебные слова отличаются от остальных — удобно при чтении программы. И еще, если вы неправильно напишете служебное слово, то оно не будет выделено жирным шрифтом, и вы легко обнаружите ошибку.
Если вы немного подождете, когда поставите точку в тексте оператора, то откроется небольшое окно, в котором перечисляются свойства, функции или процедуры, одно из которых вам следует выбрать. Это окно подсказок кода. Начинающему программисту оно очень помогает. Вы можете ввести в свою программу выбранное слово с помощью клавиши Enter (ввод).
Переименуйте папку «1» в папку «Кнопка».
Попробуйте сделать так, чтобы щелчок на второй кнопке не только удалял надпись «Привет!», но и отображал какую-либо другую надпись, например: «Пока!», другого цвета. Используйте для этого уже имеющуюся метку.