Практическая работа № 7

Тема: Многострочное поле ввода Memo

Цель работы:

• создавать рабочие проекты с использованием стандартных компонентов.

Ход работы:

Компонент Label - предназначен для отображения статического текста, то есть надписей и меток на Форме, которые не меняются в течение всего времени работы программы.

Свойства:

• Caption - используется для задания отображаемого текста.

• WordWrap - автоматический переход на новую строку слова, не помещающегося на текущую строку.

• Font – изменение шрифта выводимого текста.

• Transparent – прозрачность метки.

• Color – изменение цвета метки.

• Autosize – автоматический размер в зависимости от длинны текста.

Код задачи «Автомагазин»:

var

combo: TCombobox;

lab1:TLabel;

lab2:Tlabel;

Sh:array[1..6] of TShape;

Check: array[1..6] of TCheckbox;

Pan:array[1..4] of TPanel;

Ed:array[1..4] of TEdit;

bev1:TBevel;

bev2:TBevel;

Im:TImage;

i:integer;

procedure TForm1.Button1Click(Sender: TObject);

begin

Button1.Visible:=false;

Form1.Width:=500;

Form1.height:=500;

combo:=TComboBox.create(form1);

combo.parent:=form1;

combo.Items.Add('Audi/Ауди');

combo.Items.Add('Lexus/Лексус');

combo.Items.Add('Mersedes/Мерседес');

combo.Items.Add('Toyota/Тойота');

combo.Items.Add('Honda/Хонда');

lab1:=TLabel.create(form1);

lab1.parent:=form1;

lab1.Left:=320;

lab1.Top:=30;

lab1.caption:='Наличие';

lab2:=TLabel.create(form1);

lab2.parent:=form1;

lab2.Left:=430;

lab2.Top:=30;

lab2.caption:='Цвет';

For i:= 1 to 6 do begin

randomize;

sh[i]:=TShape.create(form1);

sh[i].parent:=form1;

sh[i].Left:=400;

sh[i].Top:=50+i*20;

sh[i].Width:=80;

sh[i].Height:=20;

sh[i].brush.Color:=RGB(random(255),random(255),random(255));

end;

For i:=1 to 6 do begin

check[i]:=TCheckbox.create(form1);

check[i].parent:=form1;

check[i].Left:=350;

check[i].Top:=50+i*20;

check[i].Width:=50;

end;

For i:=1 to 4 do begin

pan[i]:=TPanel.create(form1);

pan[i].parent:=form1;

pan[i].Left:=-90+i*120;

pan[i].Top:=350;

pan[i].Height:=30;

pan[i].Width:=120;

pan[1].caption:='Цена $';

pan[2].Caption:='Страховка $';

pan[3].caption:='Доп. услуги $';

pan[4].Caption:='Итого $';

end;

For i:= 1 to 4 do begin

ed[i]:=TEdit.create(form1);

ed[i].parent:=form1;

ed[i].Left:=-90+i*120;

ed[i].Top:=380;

ed[i].Height:=30;

ed[i].Width:=100;

end;

combo.OnChange :=proc;

end;

procedure TForm1.Proc(Sender: TObject);

begin

im:=TImage.create(form1);

im.Parent:=form1;

im.Top:=50;

im.Width:=300;

im.Height:=300;

im.Stretch :=true;

If combo.ItemIndex =0 then

im.Picture.LoadFromFile('audi.jpg');

If combo.ItemIndex =1 then

im.Picture.LoadFromFile('Lexus.jpg');

If combo.ItemIndex =2 then

im.Picture.LoadFromFile('Mercedes.jpg');

If combo.ItemIndex =3 then

im.Picture.LoadFromFile('Toyota.jpg');

If combo.ItemIndex =4 then

im.Picture.LoadFromFile('Honda.jpg');

end;

end.

Вывод: Научился создавать рабочие проекты с использованием стандартных компонентов.

Практическая работа № 8

Тема: Группа компонентов RadioButton

Цель работы:

• создавать рабочие проекты с использованием стандартных компонентов.

Ход работы:

Проект «Автомагазин» выполняет функцию заказа автомобилей с выбором цвета, страховки и дополнительных аксессуаров.

Вывод: Научился создавать рабочие проекты с использованием стандартных компонентов.