Практичесl= 2;ая работа № 3

Прак= 090;ическая работа № 3

«При= 074;етствие»=

Цель работы - созk= 6;ать программу, выполняющуn= 2; следующие д = 77;йствия:

1.&n= bsp; После запуска программы п = 86; щелчку мышь= 02; на кнопке «П= 088;иветствие» появляется = 89;ообщение «Первые успехи».

2.&n= bsp; Для выхода из программы необходимо щелкнуть мышью на кнопке «Закрыть».

Опис= 072;ние плана разработки программы<= /b>

1.&n= bsp;     Открыть новый проек = 90;.

2.&n= bsp;     Размест&#= 1080;ть на форме экземпляры компонентоk= 4;: метку Label и две кнопки Button.

3.&n= bsp;     Выполни&#= 1090;ь следующие действия:

Таблица 2.

Выделе = 85;ный объект

Вкладк = 72; окна

Object Inspector<= /o:p>

Имя свойства/

имя события

Действ = 80;е

Form1

Properties

Caption

Установ= 082;а имени формы «Проект2»

Label1

Properties

Caption

Ввод текста надписи «Первые успехи»

Button1 =

Properties

Caption

Установ= 082;а имени кнопки «Приветств= 080;е»

Events

OnClick

Label1.Caption:=3D’Первые успехи’

Button2 =

Properties

Caption

Установ= 082;а имени кнопки «Закрыть»

Events

OnClick

Close;

4.&n= bsp;     Сохрани&#= 1090;е проект, запустите и протестируl= 1;те его.

Зада= 085;ие для самостоятеl= 3;ьного выполнения =

1. Сделать шриф&#= 1090; выводимой реплики «Пе = 88;вые успехи!» отличным от стандартного пl= 6; виду, цвету и размеру.

Подс = 82;азка. В = Object Inspector дваж = 76;ы щелкнуть справа от названия свойства Font.

= 2. Заме = 85;ить вид кнопки «Выход» на более привл = 77;кательный.

Подсl= 2;азка. Дл&#= 1103; замены кнопки удалить существующm= 1;ю, а другую BitBtn найт= 080; в палитре компонентоk= 4; на вкладке = Additional. Затем изменить ее вид с помощь= 102; свойства Kind.

= 3. Сд&= #1077;лать так, чтобы после нажатия кнопки «При = 74;етствие» на экране появля&#= 1083;ось сообщение «Первые и не последние!».

Подсl= 2;азка. Из&#= 1084;енить значение свойства Caption меткl= 0; Labell при реакции кнопки Buttonl на событие OnClick<= /span>.

Лист = 80;нг = прог = 88;аммы

unit Unitl;<= o:p>

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons;

type

TForral =3D class(TForm)

Labell: TLabel;

Buttonl: TButton;

BitBtnl: TBitBtn;

procedure ButtonlClick(Sender: TObject);

private<= /span>

{Private declarations }

public

{Public declarations }

end;

var

Forml: TFonnl;

implementation

{$R *.DFM)

procedure TForml.ButtonlClick(Sender: TObject);

begin<= /p>
Label1.Caption= :=3D'Перk= 4;ые и не последние!';

end;

end.

Выделе = 85;ный объект	Вкладк = 72; окна Object Inspector<= /o:p>	Имя свойства/ имя события	Действ = 80;е
Form1	Properties	Caption	Установ= 082;а имени формы «Проект2»
Label1	Properties	Caption	Ввод текста надписи «Первые успехи»
Button1 =	Properties	Caption	Установ= 082;а имени кнопки «Приветств= 080;е»
Events	OnClick	Label1.Caption:=3D’Первые успехи’
Button2 =	Properties	Caption	Установ= 082;а имени кнопки «Закрыть»
Events	OnClick	Close;