
Упражнение Щелчок на кнопке
Создайте проект. В свойстве Caption (заголовок) для формы запишите: «Щелчок». Дайте форме имя FormClick (свойство Name). Вид формы представлен на рис. Сохраните модуль и проект в папке «2» под именами UnitClick и ProjectClick.
Поместите на форму компонент TPanel (панель) со страницы Standard (стандартные). В свойстве Caption (заголовок) для панели удалите текст, чтобы на панели не было ее названия. Увеличьте размеры панели, чтобы поместить на нее четыре кнопки.
Поместите на панель четыре кнопки (TBitBtn) со страницы Additional (дополнительные), в свойстве Caption (заголовок) для этих кнопок запишите: «Кнопка1», «Кнопка2», «КнопкаЗ», «Кнопка4». В свойстве Name (имя) для этих кнопок напишите: bt_l, bt_2, bt_3, bt_4. В свойстве Cursor (курсор) для каждой кнопки выберите из списка значение: crHandPoint. Тогда при наведении курсора на кнопку он приобретет вид ладошки.
Рис. Форма «Щелчок»
Под панелью с кнопками вставьте компонент TEdit (окно редактирования), который находится на странице Standard (стандартные). В свойстве Text (текст) удалите текст.
Сохраните изменения щелчком на кнопке Save All (сохранить все). Запустите программу и посмотрите, что получилось.
Теперь сделайте так, чтобы при щелчке на кнопках, в окне Editl появлялся текст: «Щелчок на кнопке 1», «Щелчок на кнопке 2», «Щелчок на кнопке 3», «Щелчок на кнопке 4». Выделите первую кнопку, и на листе Events (события), в событии OnClick (щелчок) для нее щелкните два раза на пустом поле рядом с названием события. Запишите в процедуре между словами begin (начало) и end (конец) следующие операторы:
FormClick.Editl.Text:='Щелчок на кнопке 1';
FormClick.Editl.Font.Color:=clRed;
Создайте по аналогии процедуры, обрабатывающие щелчок указателем мыши на других кнопках.
В процедуру щелчка на второй кнопке запишите:
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 некоторое значение, в нашем случае текст, который заключается в апострофы. Текст может писаться как на русском языке, так и на английском. Второй оператор в каждой процедуре присваивает цвет шрифту текста окна. В этих процедурах указание на форму можно было бы и не писать, так как все кнопки и окно редактирования находятся на этой форме.
Далее представлен листинг всей программы:
unit UnitClick;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, Buttons, ExtCtrls;
type
TFormClick = class(TForm) // объявление класса
Panel1: TPanel; // объявление объектов класса
bt_1: TBitBtn;
bt_2: TBitBtn;
bt_3: TBitBtn;
bt_4: TBitBtn;
Edit1: TEdit;
procedure bt_1Click(Sender: Tobject);
// объявление методов класса
procedure bt_2Click(Sender: TObject);
procedure bt_3Click(Sender: TObject);
procedure bt_4Click(Sender: TObject);
private
{ Private declarations } public
{ Public declarations } end;
var
FormClick: TFormClick;// объявление экземпляра класса