Упражнение Кнопка

В этом упражнении создается программа, в которой щелчок на одной кнопке открывает надпись, и щелчок на другой кноп­ке скрывает надпись.

Создайте проект. В Строке заголовка формы укажите назва­ние окна проекта. Для этого в Инспекторе объектов, в свойстве 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» в папку «Кнопка».

Попробуйте сделать так, чтобы щелчок на второй кнопке не только удалял надпись «Привет!», но и отображал какую-либо другую надпись, например: «Пока!», другого цвета. Используй­те для этого уже имеющуюся метку.