3 Лабораторная работа №8

Введение в среду программирования Delphi

Цель работы: Изучить основные возможности среды программирования Delphi.

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

Визуально среда Delphi реализуется несколькими одновременно раскрытыми на экране окнами. Окна могут перемещаться по экрану, частично или полностью перекрывая друг друга. После запуска Delphi на экране появятся четыре наиболее важных окна: главное окно (оно имеет заголовок Delphi 4- имя проекта), окно инспектора объектов (Object Inspector) и окно кода программы (имя). Слева в окне кода располагается вспомогательное окно браузера, с помощью которого можно просматривать структуру всех объявлений в окне кода.

Обычно после загрузки окно формы закрывает собой окно кода программы. Для того чтобы увидеть окно кода программы надо нажать F12, еще одно нажатие на эту клавишу показывает окно формы. Можно также вручную изменить размеры этих окон, чтобы они были видны оба.

Главное окно осуществляет основные функции управления проектом создаваемой программы. В главном окне располагается главное меню Delphi, набор пиктогра­фических командных кнопок и палитра компонентов.

Главное меню содержит все необходимые средства для управления проектом. Все опции главного меню представляют собой опции-заго­ловки, открывающие доступ к выпадающим меню второго уровня.

Пиктографические кнопки открывают быстрый доступ к наиболее важным опциям главного меню. По функциональному признаку они разделены на 6 групп. Каждая группа занимает отдельную панельку.

Окно формы представляет собой проект Windows-окна. будущей про­граммы. Вначале это окно пусто. Точнее, оно содержит стандартные для Windows интерфейсные элементы - кнопки вызова системного меню, максимизации, минимизации и закрытия окна, полосу заголовка и очер­чивающую рамку. Вся рабочая область окна обычно заполнена точками координатной сетки, служащей для упорядочения размещаемых на форме компонентов.

Особенность визуального программирования состоит в следующем: программист выбирает из палитры компонентов нужный компонент и размещает его на форме, постепенно заполняя форму интерфейсными элементами. Он в любой момент времени контролирует содержание окна создаваемой программы и мо­жет внести в него необходимые изменения.

Любой размещаемый на форме компонент характеризуется некото­рым набором параметров: положением, размером, цветом и т.д. Часть этих параметров, например, положение и размеры компонента, про­граммист может изменять, манипулируя с компонентом в окне формы. Для изменения других параметров предназначено окно Инспектора Объектов. Это окно содержит две страницы - Properties (Свойства) и Events (События). Страница Properties служит для установки нужных свойств компонента, страница Events позволяет определить реакцию компонента на то или иное событие. Совокупность свойств отображает видимую сторону компонента: положение относительно левого верхне­го угла рабочей области формы, его размеры и цвет, шрифт и текст над­писи на нем и т.п.; совокупность событий - его поведенческую сторону: будет ли компонент реагировать на щелчок мыши или на нажатие кла­виш, как он будет вести себя в момент появления на экране или в мо­мент изменения размеров окна и т.п.

Каждая страница окна Инспектора Объектов представляет собой двухколончатую таблицу, левая колонка которой содержит название свойства или события, а правая - конкретное значение свойства или имя подпрограммы, обрабатывающей соответствующее событие.

С

6

троки таблицы выбираются щелчком мыши и могут отображать простые или сложные свойства. К простым относятся свойства, опреде­ляемые единственным значением - числом, строкой символов, значени­ем True (Истина) или False (Ложь) и т.п. Например, свойство Caption (Заголовок) представляется строкой символов, свойства Height (Высота) и Width (Ширина) - числами, свойство Enabled (Доступность) - значе­ниями True или False. Сложные свойства определяются совокупностью значений. Слева от имени таких свойств указывается значок "+", а щел­чок мышью по этому символу приводит к раскрытию списка состав­ляющих сложного свойства. Чтобы закрыть раскрытый список, нужно щелкнуть по значку "-" сложного свойства.

В верхней части окна Инспектора Объектов располагается рас­крывающийся список всех помещенных на форму компонентов. По­скольку форма сама по себе является компонентом, ее имя также при­сутствует в этом списке.

!Если вы случайно или намеренно сделали все окно невидимым, нажмите F11 или выберите опцию Viev/ Object Inspector, чтобы оно вновь появилось на экране.

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

1. Разработать простое приложение, демонстрирующее основные свойства объектов (компонентов): «Button», «Label», «Edit», «MainMenu», «PopupMenu».

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

unit Unit Calc;

interface

uses

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

Dialogs, Menus, StdCtrls;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N7: TMenuItem;

Button1: TButton;

PopupMenu1: TPopupMenu;

N10: TMenuItem;

N11: TMenuItem;

Label1: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

procedure N3Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure N7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N3Click(Sender: TObject);

begin

Form1.Color :=clBlack

end;

procedure TForm1.N1Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form1.Color :=clBtnFace;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

Form1.Color :=clBlack;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

Form1.Color :=clBtnFace;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.Text:='0';

Edit2.Text:='0';

end;

procedure TForm1.Button4Click(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);

Label1.Caption:=s;

end;

procedure TForm1.N6Click(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);

Label1.Caption:=s;

end;

procedure TForm1.Button5Click(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);

Label1.Caption:=s;

end;

procedure TForm1.N8Click(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);

Label1.Caption:=s;

end;

procedure TForm1.Button2Click(Sender: TObject);

Var

Znach1,Znach2: Real;

Sum:Real;

s:String;

begin

Val(Edit1.Text,Znach1,Code);

Val(Edit2.Text,Znach2,Code);

Sum:=Znach1 * Znach2;

Str(Sum :1:0,s);

Label1.Caption:=s;

end;

procedure TForm1.N9Click(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);

Label1.Caption:=s;

end;

procedure TForm1.Button3Click(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);

Label1.Caption:=s;

end;

procedure TForm1.N7Click(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);

Label1.Caption:=s;

end;

end.

Вывод: в данной лабораторной работе мы изучили основные возможности среды программирования Delphi.