Практическая работа № 9
Тема: Полоса разделения
Цель работы:
создавать рабочие проекты с использованием стандартных компонентов.
Ход работы:
Основные свойства компонента – Panel:
Align - определяет границу формы, к которой привязана(прикреплена) панель. Она может быть прикреплена к левой(alLeft), правой(alRight), верхней(alTop) и нижней(alBottom) границе.
BevelOuter - внешняя фаска панели. Если значение свойства равно bvNone, то фаска не отображается и поверхность панели находится на одном уровне с поверхностью формы, если значение равно bvLowered, то поверхность панели протоплена, если свойство равно bvRaised, то поверхность панели выступает над поверхностью формы.
BevelCut - определяет вид внутренней кромки если значение равно bvNone, то кромки нет, если bvLowered — кромка вдавленная, если bvRaised — кромка приподнятая.
BevelInner - определяет вид внешней кромки, если значение равно bvNone, то кромки нет, если bvLowered — кромка вдавленная, если bvRaised — кромка приподнятая.
Enabled - свойство позволяет сделать недоступным все компоненты находящиеся на панели.
Вывод: Научился создавать рабочие проекты с использованием стандартных компонентов.
Практическая работа № 10
Тема: Компоненты - украшения
Цель работы:
создавать рабочие проекты с использованием компонентов украшения.
Ход работы:
Свойства компонента – Bevel:
bsBottomLine — линия снизу, bsFrame — рамка, bsBox -прямоугольник, bsLeftLine — линия слева, bsTopLine — линия сверху. bsRightLine — линия справа bsSpacer — область ,используемая для разметки, видна только во время проектирования
bsLowerd - вогнутая фаска по отношению к поверхности на которой размещен компонент, bsRaised - выпуклая фаска по отношению к поверхности на которой размещен компонент.
Код работы с клавиатурой в задаче «Визитка спортсмена»:
procedure TForm2.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
If not (key in ['0'..'9',#8]) then key:=#0;
end;
procedure TForm2.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'0'..'9',#8:;
'.',',':
begin
key:=decimalSeparator;
If Pos(Decimalseparator,Edit1.text)<>0
then Key:=#0;
end;
else Key:=#0;
end;
end;
procedure TForm2.N2Click(Sender: TObject);
begin
N3.Enabled:=true;
for i:=0 to componentcount-1 do
If (components[i] is TEdit) and ((TEdit(components[i]).Text)='') then
begin
Showmessage('Вы заполнили не все полдя');
N3.Enabled:=false;
Exit;
end;
end;
Вывод: Научился создавать рабочие проекты с использованием компонентов украшения.
Практическая работа № 11
Тема: Панель с полосами прокрутки
Цель работы:
создавать рабочие проекты.
Ход работы:
Код задачи «Визитка спортсмена»:
procedure TForm2.N3Click(Sender: TObject);
begin
N3.Enabled :=false;
w:=createOleObject('Word.application');
w.documents.add(ExtractFilePath(Application.ExeName)+'Визитка.dotx');
w.visible:=true;
w.selection.find.text:='#Фамилия&';
w.selection.find.replacement.text:=Edit1.text;
w.selection.find.execute(replace:=wdreplaceall);
w.selection.find.text:='#Имя&';
w.selection.find.replacement.text:=Edit2.text;
w.selection.find.execute(replace:=wdreplaceall);
w.selection.find.text:='#Отчество&';
w.selection.find.replacement.text:=Edit3.text;
w.selection.find.execute(replace:=wdreplaceall);
w.selection.find.text:='#Амплуа&';
w.selection.find.replacement.text:=Edit4.text;
w.selection.find.execute(replace:=wdreplaceall);
w.selection.find.text:='#N&';
w.selection.find.replacement.text:=Edit5.text;
w.selection.find.execute(replace:=wdreplaceall);
w.selection.find.text:='#rost&';
w.selection.find.replacement.text:=Edit6.text;
w.selection.find.execute(replace:=wdreplaceall);
w.selection.find.text:='#Ves&';
w.selection.find.replacement.text:=Edit7.text;
w.selection.find.execute(replace:=wdreplaceall);
end;
procedure TForm2.N4Click(Sender: TObject);
begin
Form1.Close;
Form2.close;
end;
end.
Вывод: Научился создавать рабочие проекты.