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

Создайте проект. В свойстве 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;// объявление экземпляра класса

implementation

{$R *.DFM)

procedure TFormClick. bt_1Click(Sender: TObject);

begin

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

FormClick.Editl.Font.Color:=clRed;

end;

procedure TFormClick.BBt_2Click(Sender: TObject);

begin

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

FormClick.Editl.Font.Color:=clTeal;

end;

procedure TFormClick.BBt_3Click(Sender: TObject);

begin

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

FormClick.Editl.Font.Color:=clGreen;

end;

procedure TFormClick.BBt_4Click(Sender: TObject);

begin

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

FormClick.Editl.Font.Color:=clBlue;

end;

end.

Переименуйте папку, в которой хранятся файлы программы так, чтобы название папки соответствовало хранимому в ней Проекту, например, в папку «Щелчок на кнопке».

Упражнение Изменение заголовка формы

Создайте новый проект (File>New Application) Разместите на форме компоненты TEdit (Edit1) для ввода нового заголовка формы и компонент TButton (Button1) - для изменения заголовка формы (страница Standard Палитры компонентов) Измените надпись на кнопке Button1 (свойство Caption, вкладка Properties Инспектора объектов).

Очистите содержимое поля TEdit (свойство Text, вкладка Properties).

Проверьте работоспособность созданного приложения (F9)

Вернитесь в режим редактирования. Дважды щелкните на кнопке Button1 и внесите в созданную заготовку процедуры оператор

Form1.Caption:=Edit1.Text;

Общий вид процедуры.

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Caption:=Edit1.Text;

end;

Сохраните созданный проект в отдельном каталоге (File>Save All) и, повторно запустив приложение, проверьте его работоспособность.