Самостоятельная работа

1. Переименуйте папку «1» в папку «Кнопка».

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

Упражнение 2. Щелчок на кнопке

При щелчке по различным кнопкам на форме в специальном окне появляется соответствующий текст выбранного цвета.

1. Создайте проект. В свойстве Caption (заголовок) для формы запишите: «Щелчок». Дайте форме имя FormClick (свойство Name). Вид формы представлен на рис. 2. Сохраните модуль и проект в папке «2» под именами UnitClick и ProjectClick.

2. Поместите на форму компонент TPanel (панель) со страницы Standard (стандартные). В свойстве Caption (заголовок) для панели удалите текст, чтобы на панели не было ее названия. Увеличьте размеры панели, чтобы поместить на нее четыре кнопки.

3. Поместите на панель четыре кнопки (TBitBtn) со страницы Additional (дополнительные), в свойстве Caption (заголовок) для этих кнопок запишите: «Кнопка!.», «Кнопка2», «КнопкаЗ», «Кнопка4». В свойстве Name (имя) для этих кнопок напишите: bt_l, bt_2, bt_3, bt_4. В свойстве Cursor (курсор) для каждой кнопки выберите из списка значение: crHandPoint. Тогда при наведении курсора на кнопку он приобретет вид ладошки.

Рис. 2. Форма «Щелчок»

4. Под панелью с кнопками вставьте компонент TEdit (окно редактирования), который находится на странице Standard (стандартные). В свойстве Text (текст) удалите текст.

5. Сохраните изменения щелчком на кнопке SaveAll (сохранить все). Запустите программу и посмотрите, что получилось.

6. Теперь сделайте так, чтобы при щелчке на кнопках, в окне Editl появлялся текст: «Щелчок на кнопке 1», «Щелчок на кнопке 2», «Щелчок на кнопке 3», «Щелчок на кнопке 4». Выделите первую кнопку, и на листе Events (события), в событии OnClick (щелчок) для нее щелкните два раза на пустом поле рядом с названием события. Запишите в процедуре между словами begin (начало) и end (конец) следующие операторы:

FormClick.Editl.Text:='щелчок на кнопке 1';

FormClick.Editl.Font.Color:=clRed;

5. Создайте по аналогии процедуры, обрабатывающие щелчок указателем мыши на других кнопках.

6. В процедуру щелчка на второй кнопке запишите:

FormClick.Editl.Text:='щелчок на кнопке 2';

FormClick.Editl.Font.Color:=clTeal;

В процедуру щелчка на третьей кнопке запишите:

FormClick.Editl.Text: = 'Щелчок на кнопке 3' ; FormClick.Editl.Font.Color:=clGreen;

В процедуру щелчка на четвертой кнопке запишите:

FormClick.Editl.Text: = 'Щелчок на кнопке 4' ;

FormClick.Editl.Font.Color:=clBlue;

Первый оператор в каждой процедуре присваивает свойству Text (текст) компонента TEdit некоторое значение, в нашем случае текст, который заключается в апострофы. Текст может писаться как на русском языке, так и на английском. Второй оператор в каждой процедуре присваивает цвет шрифту текста окна. В этих процедурах указание на форму можно было бы и не писать, так как все кнопки и окно редактирования находятся на этой форме.