4 Лабораторная работа №9

Ознакомление со средой Delphi.

Цель работы: приобрести практические навыки в работе с объектно-ориентированной средой программирования Delphi.

1.1 Домашнее задание

Некоторые свойства компонентов.

Общие свойства.

Caption-заголовок;

Name -имя(Это имя будет фигурировать в тексте кода программы. Delphi сама дает имена компонентам, но для удобства их рекомендуется поменять);

Свойства положения, размеров и оформление компонентов.

Height-высота;

Left-положение левой кромки;

Top-положение верхней кромки;

Width- ширина;

Align-свойство, определяющее выравнивание положения компонента относительно контейнера, в котором он размещен. Это свойство имеет следующие значения:

alNone- нет свойства;

alTop- прижатие к верхней кромке;

alBottom- нижней;

alLeft- левой;

alRight- правой;

alClient- заполнение всего не занятого другими компонентами места.

Visible- определяет видимость компонента.

Enabled- определяет возможность активизации компонента.

Font- задаваемый шрифт.

Alignment- регулирует расположение текста относительно границ компонента:

taLeftJustify- прижать к левой границе;

taRidhtJustify - прижать к правой границе;

taCenter- расположить по центру.

Ctl3d- реализует объемность изображения.

Color-цвет, который заливает видимую часть.

Установка цвета, объемности, шрифта и подсказки как у родителя.

Anchors-фиксирует дочерний компонент относительно границ контейнера, в котором он размещен.

Свойства справочной службы.

Hint-строка символов, представляющая собой всплывающую подсказку;

ShowHint- разрешение отображения подсказки;

HintColor-цвет фона ярлычка.

Свойства компонентов страницы STANDARD.

Label-метка для отображения текста.

A

14

utoSize: Указывает, будет ли метка изменять свои раз

меры в зави­симости от помещенного в ее свойство Cap

tion текста: True -будет.

Layout: Определяет выравнивание текста по вертикали относитель­но границ метки: tITop - текст располагается вверху; tICen­ter - текст центрируется по вертикали; tIBottom - текст располагается внизу.

Wordwrap Разрешает/запрещает разрыв строки на границе слова. Для вывода многострочных надписей задайте AuroSize=False, WordWrap=True и установите подходящие размеры метки.

Transparent:Определяет прозрачность фона метки. Если False, фон закрашивается собственным цветом Color, в противном случае используется фон родительского компонента.

Edit- строка ввода.

AutoSize: Если содержит True и BorderStyle=bsSingle, высота компонента автоматически меняется при изменении свойства Font.Size.

BorderStyle Определяет стиль обрамления компонента: bsNone -нет обрамления; bsSingle - компонент обрамляется одной линией

CharCase Определяет автоматическое преобразование высоты букв: ecNormal - нет преобразования; ecUpperCase -все буквы заглавные; ecLowerCase - все буквы строч­ные. Правильно работает с кириллицей.

MaxLength: Определяет максимальную длину текстовой строки. Если имеет значение 0, длина строки не ограничена.

Modified: Содержит True, если текст был изменен.

OnChange: Определяет обработчик события OnChange, которое возникает после любого изменения текста.

SelLength: Содержит длину выделенной части текста.

SelText: Содержит выделенную часть текста.

Text: Содержит весь текст.

Memo- ввод и отображение текста.

ScrollBars: Определяет наличие в окне редактора полос про­крутки: ssNone - нет полос; ssHorizontal - есть горизонтальная полоса; ssVertical - есть верти­кальная полоса; ssBoth - есть обе полосы.

WantReturns: Если содержит True, нажатие Enter вызывает переход на новую строку, в противном случае -обрабатывается системой. Для перехода на новую строку в этом случае следует нажать Ctrl+Enter.

WantTabs: Если содержит True, нажатие Tab вызывает ввод в текст символа табуляции, в противном случае -обрабатывается системой. Для ввода символа табуляции в этом случае следует нажать Ctrl+Tab.

Lines: Содержит строки текста.

CaretPos: Содержит координаты мигающего текстового курсора относительно границ клиентской области компонента

Button-кнопка.

Cancel: Если имеет значение True, событие OnClick кнопки возникает при нажатии клавиши Esc.

Default: Если имеет значение True, событие OnClick кнопки возникает при нажатии клавиши Enter.

CheckBox-независимый переключатель.

AllowGrayed: Разрешает/запрещает использование состояния cbGrayed (He знаю).

Caption: Содержит связанный с компонентом текст.

Checked: Содержит выбор пользователя типа Да/Нет. Состояния cbUnchecked и cbGrayed отражают­ся как False.

State: Содержит состояние компонента: cbUnchecked - нет; cbChecked - да; cbGrayed — не знаю.

ScrollBar-управление значением величины.

K

16

ind: Определяет ориентацию компонента: sbHori­zontal -

бегунок перемещается по горизонтали; sbVertical - бегунок перемещается по вертикали.

LargeChange: «Большой» сдвиг бегунка (при щелчке мышью рядом с концевой кнопкой).

Max: Максимальное значение диапазона изменения числовой величины.

Min: Минимальное значение диапазона изменения числовой величины.

Position: Текущее значение числовой величины.

SmallChange: «Малый» сдвиг бегунка (при щелчке мышью по концевой кнопке).

Panel-панель.

BorderStyle: Определяет стиль рамки: bsNone - нет рамки; bsSingle - компонент по периметру обводится линией толщиной в 1 пиксель.

FullRepaint: Разрешает/запрещает перерисовку панели и всех ее дочерних элементов при изменении ее размеров.

Некоторые свойства страницы ADDITIONAL.

BitBtn-кнопка с изображением.

Glyph: Определяет растровое изображение кнопки.

(Delphi содержит в каталоге Borland/ Borland Chared/Images/Buttons много пиктографических изображений кнопок.)

Kind: Определяет разновидность кнопки

Layout: Определяет край кнопки, к которому прижима­ется пиктограмма: bIGlyphLeft - к левому; bIGlyphRight - к правому; bIGlyphTop - к верх­нему; biGlyphBottom - к нижнему.

Margin: Определяет расстояние в пикселях от края кнопки до пиктограммы.

Spacing: Определяет расстояние в пикселях от пикто­граммы до надписи на кнопке.

Style: Определяет стиль оформления кнопки, завися­щий от операционной системы. Стиль bsNew соответствует 32-разрядным версиям Windows. Стиль bsAutoDetect изменяет оформление кнопки в зависимости от ОС, под управлением которой работает программа в данный момент.

Лабораторные задания

1. Необходимо решить задачу: реализовать функцию Y=A+B, при этом должен быть предусмотрен ввод А и В с клавиатуры и с помощью генератора случайных чисел.

Скриншот работы программы

Листинг программы:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, Menus;

type

TForm1 = class(TForm)

Panel1: TPanel;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Edit3: TEdit;

Label3: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

StatusBar1: TStatusBar;

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

t,w: integer;

implementation

{$R *.dfm}

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

close;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

var

Znach1,Znach2: Real;

Code:Integer;

Sum:Real;

s:String;

begin

Val(Edit1.Text,Znach1,Code);

Val(Edit2.Text,Znach2,Code);

sum:=Znach1+Znach2;

Str(Sum:1:0,s);

Edit3.Text:=s;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

var

s:String;

chislo: real;

begin

randomize;

chislo:=random(1000);

s:=FloatToStr(chislo);

form1.Edit1.Text := s;

chislo:=random(1000);

s:=FloatToStr(chislo);

form1.Edit2.Text := s;

end;

end;

End.

Вывод: в данной лабораторной работе мы приобрели практические навыки в работе с объектно-ориентированной средой программирования Delphi.