12. Программа "Двигающая кнопка"

Цель работы: - создать программу, выполняющую следующие действия:

1. По щелчку мышью на кнопке кнопка либо останавливается, либо двигается.

2. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.

Описание плана разработки программы

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: кнопку Button, таймер Timer. Кнопка включает и выключает таймер, а таймер двигает кнопку.

3. Выполнить следующие действия:

Выделенный объект	Вкладка окна Object Inspector	Имя свойства/ имя события	Действие
Forml	Properties	Caption	Установка имени формы "Двигающаяся кнопка"
Timerl	Properties	Enabled	Установить значение свойства Enabled = false Свойство Enabled определяет, включен или выключен таймер (по умолчанию, он включен).
		Interval	Interval = 100 Свойство Interval определяет интервал в миллисекундах между возникновением событий OnTimer (по умолчанию интервал равен 1 секунде).
	Events	OnTimer	Button1.Left := Button1.Left - 5; if Button1.Left < 10 then Button1.Left := 100;
Buttonl	Properties	Caption	Установка имени кнопки "Сменить заголовок окна"
		Default	Выбрать в раскрывающемся списке значение True
	Events	OnClick	Timer1.Enabled := not Timer1.Enabled;

4. Сохраните проект, запустите и протестируйте его.

13. Программа «Календарь»

Программный код проекта "Календарь"

procedure TForml.Button1Click(Sender: TObject);

var к:integer;

begin

Label2.Visible:=True;

Label2.Caption: = 'Данный год';

Label3.Visible:=True;

k:=StrtoInt(Editl.Text);

if к mod 100 <>0

then

if к mod 4 =0

then Label3.Caption:='является високосным'

else Label3.Caption:='He является високосным'

else

if k mod 400 =0

then Label3.Caption:='является високосным'

else Label3.Caption:='не является високосным'

end;

procedure TForml.Button2Click(Sender: TObject);

begin

close

end;

procedure TForml.Button3Click(Sender: TObject);

begin

Editl.Text:=’-1';

Label2.Visible:=False;

Label3.Visible:=False

end;

end.

14. Программа «банкомат»

procedure TForml.ButtonlClick(Sender: TObject);

begin

close

end;

procedure TForml.Button2Click(Sender: TObject);

var sum, k1000, k500, к100, k50,

ost1000,ost500,ost100:integer;

begin

sum:=StrtoInt(Editl.Text);

k1000:=sum div 1000;

ost1000:=sum mod 1000;

k500:=ost1000 div 500;

ost500:=ost1000 mod 500;

k100:=ost500 div 100;

ost100:=ost500 mod 100;

k50:=ost100 div 50;

Edit2.Text:=InttoStr(kl000);

Edit3.Text:=InttoStr(k500);

Edit4.Text:=InttoStr(klOO);

Edit5.Text:=InttoStr(k50)

end;

end.

15. Программа «Изменение заголовка формы»

Цель работы: - создать программу, выполняющую следующие действия:

1. После запуска программы ввести текст в текстовом поле.

2. По щелчку мышью на кнопке "Сменить заголовок окна" изменяется заголовок окна.

3. Ввести новый текст в текстовом поле.

4. Изменить название заголовка окна по нажатию клавиши Enter.

5. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.

Описание плана разработки программы

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: метку Label, кнопку Button, текстовое поле Edit.

3. Выполнить следующие действия:

Выделенный объект	Вкладка окна Object Inspector	Имя свойства/ имя события	Действие
Forml	Properties	Caption	Установка имени формы "ПроектЗ"
Labell (Вкладка Standard)	Properties	Caption	Ввод текста надписи "Введите новый заголовок:"
Editl (Вкладка Standard)	Properties	Text	Очистить значение свойства Text
Buttonl (Вкладка Standard)	Properties	Caption	Установка имени кнопки "Сменить заголовок окна"
		Default	Выбрать в раскрывающемся списке значение True
	Events	OnClick	Form1.Caption:= Edit1.Text;

4. Сохраните проект, запустите и протестируйте его.