Описати події
Виберемо відповідну|придатну| подію (закладка|закладення| – Events|) для наведення миші – OnMouseMove|.
Клацнемо|лускатимемо| двічі по порожньому|пустому| білому рядку поряд з|поряд із| цією подією і перед нами з'являється|появляється| вікно коди програми. Delphi| запрошує нас написати команди, які необхідно виконати при наведенні миші на Shape1|.
Нам потрібно, аби|щоб| колір|цвіт| Shape1| змінювався на червоний, а в написі|надписі| з'являвся|появлявся| текст – СТІЙ !
Між словами процедури Begin| і End| пишемо:
begin|
shape1|.Brush.Color:=clRed;
Label1|.Caption:='СТІЙ!';
end|;
За аналогією прописуємо події для Shape2 і Shape3.
Прописуємо подію кнопки Button1 для виходу з програми. Між словами процедури Begin| і End| пишемо
Close;
Ускладнимо завдання|задачу|. Хай|нехай| при наведенні миші включається лише|тільки| один колір|цвіт|, а останні вимикаються|виключають|, тобто|цебто| стають сірими.
В результаті програма повинна виглядати так:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
Label1: TLabel;
Button1: TButton;
procedure Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Shape2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Shape3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
shape1.Brush.Color:=clRed;
Label1.Caption:='СТІЙ !';
Shape2.Brush.Color:=clGray;
Shape3.Brush.Color:=clGray;
end;
procedure TForm1.Shape2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
shape2.Brush.Color:=clYellow;
Label1.Caption:='ЧЕКАЙ !';
Shape1.Brush.Color:=clGray;
Shape3.Brush.Color:=clGray;
end;
procedure TForm1.Shape3MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
shape3.Brush.Color:=clGreen;
Label1.Caption:='ІДИ !';
Shape1.Brush.Color:=clGray;
Shape2.Brush.Color:=clGray;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
end.
Збережіть проект, запустіть і протестуйте його.
Проект 3. «додавання»
Мета роботи - створити програму, яка повинна забезпечувати введення двох цілих чисел з клавіатури комп'ютера (введені|запроваджувати| числа відображуватимуться|відображатимуть| в двох текстових вікнах) і виводити| в третьому вікні суму цих двох чисел.
після|потім| запуску програми з'являється|появляється| вікно.
провести математичну дію додавання двох чисел;
для виходу з програми необхідно клацнути мишею на кнопці «Вийти з програми».
Опис плану розробки програми
Відкрити|відчиняти| новий проект.
Розмістити на формі екземпляри компонентів.
Виконати наступні дії:
Таблиця 2.
Виділений об'єкт |
Закладка вікна Odject Inspector |
Ім'я властивості/ і'мя події |
Подія |
Form1
|
Properties
|
Caption
|
Встановити ім'я форми "Додавання" |
Label1 (закладка Standard) |
Properties
|
Caption |
Встановити текст надпису " "Перше число " |
Label2 (закладка Standard) |
Properties |
Caption |
Встановити текст надпису "Друге число" |
Label3 (закладка Standard) |
Properties
|
Caption |
Встановити текст надпису "Сума" |
Edit1 (закладка Standard) |
Properties
|
Text |
Очистити |
Edit2 (закладка Standard) |
|||
Edit3 (закладка Standard) |
|||
Button1 (закладка Standard) |
Properties |
Caption |
Встановити ім'я кнопки "Додати" |
Events |
OnClick |
Записати код програми |
|
Button2 (закладка Standard) |
Properties |
Caption |
Встановити ім'я кнопки "Закрити" |
Events |
OnClick |
Close |
Для перевести текстової інформацію в числову скористаємося функцією, яка називається StrtoInt. У назві даної функції Str — це скорочення від англійського слова string (рядок), а Int — від integer (ціле). Таким чином, назву даної функції можна розшифрувати як "перетворити рядок в ціле число".
Коли введені дані будуть перетворені в числові величини і над ними будуть вироблені всі необхідні дії, перед програмістом встане зворотне завдання: як отриманий чисельний результат перетворити в текст, який може бути виведений на екран комп'ютера. Для цієї мети використовується інша стандартна функція InttoStr.
Введемо|запроваджуватимемо| в програмі три змінні, значенням кожним з яких буде числове значення текстової інформації, що відображується|відображає| в одному з текстових вікон. Тому дані змінні ми назвемо|накликатимемо| el|, e2| і еЗ| (відповідно до вікон Edit1|, Edit2| і Edit3|).
Опис змінних виглядатиме так:
var| el,e2,e3:integer;
Змінним el і е2 будуть привласнені значення першого і другого доданків, що вводяться в текстові вікна Editl і Edit2. Для перетворення тексту, що вводиться в ці вікна, в числові значення змінних el і е2, ми скористаємося стандартною функцією мови Object Pascal inttostr. Перетворення виконаємо за допомогою операторів:
el:=StrtoInt|(Editl|.text);
e2:=StrtoInt|(Edit2|.text);
Наступний оператор в програмі виробляє складання значень два змінних і привласнює суму змінної еЗ:
e3:=el+e2|;
Нарешті, залишилося перетворити набутого числового значення в текстове, яке відображуватиметься у вікні Edit3. Для цього використовується оператор:
Edit3|.Text:=InttoStr(e3|)
Цілком процедура, що описує складання двох чисел при натисненні екранної кнопки Скласти, виглядатиме таким чином:
procedure| TForml|.ButtonlClick(Sender|: TObject|);
var| el,e2,e3:integer|;
begin|
el:=strtoint|(Editl|.text);
e2:=strtoint|(Edit2|.text);
e3:=el+e2|;
Edit3|.Text:=InttoStr (e3|)
end|;
Для завершення роботи залишилося вставити рядок коду в процедуру Button2Ciick|, яка виконується при клацанні|натисненні| мишею на екранній кнопці Button2|. Цей рядок складається з одного слова close|. Тепер програма готова до роботи.
У лістингу наводиться повний текст даної програми.
unit| Unitl|;
interface|
uses|
Windows|, Messages|, SysUtils|, Variants|, Classes|, Graphics|, Controls|, Forms|
Dialogs|, StdCtrls|;
type|
TForml| = class|(TForm|)
Labell|: TLabel|;
Label2|: TLabel|;
Editl|: TEdit|;
Edit2|: TEdit|;
Label3|: TLabel|;
Edit3|: TEdit|;
Buttonl|: TButton|;
Button2|: TButton|;
procedure| ButtonlClick|(Sender|: TObject|);
procedure| Button2Click|(Sender|: TObject|);
private|
{ Private| declarations| }
public|
{ Public| declarations| }
end|;
var|
Forml|: TForml|;
implementation|
{$R *.dfm}
procedure| TForml|.ButtonlClick(Sender|: TObject|);
var| el,e2,e3:integer|;
begin|
el:=strtoint|(Editl|.text);
e2:=strtoint|(Edit2|.text);
e3:=el+e2|;
Edit3|.Text:=InttoStr(e3|)
end|;
procedure| TForml|.Button2Click(Sender|: TObject|);
begin|
close|
end|;
end|.
Збережіть проект, запустіть і протестуйте його.