Создание приложений Windows. Программирование в среде Delphi с использованием библиотеки VCL (Глава 8)

Введение. Особенности программирования «под Windows»

Управление техническими средствами осуществляется через API

Принцип событийного управления

Приложение (в отличие от программы) – набор подпрограмм, вызываемых

Структура приложения

Минимально любое приложение Windows состоит из двух частей: основной программы

Обработка сообщения от клавиатуры

Завершение приложения

Глава 8 Программирование в среде Delphi с использованием библиотеки VCL

МГТУ им.

8.1 События Delphi и их обработчики

Обработчики сообщений Windows предусмотрены у объектов

События Delphi

Обработчики сообщений Windows, встроенные в классы компонентов VCL, инициируют множество

Для каждого обработчика событий предусмотрен заголовок и определеный список передаваемых ему

Основное окно приложения строится на базе класса TForm.
При входе в Delphi

а) при изменении состояния формы:
OnCreate – в начальной стадии создания формы

б) от клавиатуры и мыши:
OnKeyPressed – при нажатии клавиш, которым соответствует

1. Метка (класс TLabel)
Метка – окно с текстом и может использоваться

2. Строчный редактор (класс TEdit)
Компонент представляет собой окно, обычно выделенное цветом,

3. Кнопка
Компонент представляет собой окно, в котором размещается название кнопки. Используется

1 Метод MessageBox (класс TApplication)
function MessageBox(Text, Caption: PChar;
Flags:Longint=MB_OK):Integer;
Пример:
Application.MessageBox('Строка пуста',

Вычисление квадрата заданного числа

Form1:
Name:=MainForm;
Caption:='Возведение в квадрат';
Label1:
Name:='InputLabel';
Caption:='Введите число';
Label2:
Name:=OutPutLabel;
Caption:='Квадрат числа равен:';
Edit1:
Name:=InputEdit;

Edit2:
Name:=OutPutEdit;
Enable:=false;
ReadOnly:=true;
Button1:
Name:=NextButton;
Caption:='Следующее';
Button2:
Name:=ExitButton;
Caption:='Выход';

Формы интерфейса

Диаграмма состояний интерфейса

Нормальное состояние

Объектная декомпозиция (диаграмма объектов)

Определение обрабатываемых событий по диаграмме состояний интерфейса

С1 – активация формы;
С2 –

Диаграмма классов приложения

Program Ex8_01;
Uses
Forms,
MainUnit in 'MainUnit.pas' {MainForm};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);

Unit MainUnit;
interface
Uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

var MainForm: TMainForm;
implementation
{$R *.DFM}
procedure TMainForm.FormActivate(Sender: TObject);
begin
NextButton.Enabled:=false;
InPutEdit.ReadOnly:=false;
InPutEdit.Clear;
InPutEdit.Enabled:=true;
InPutEdit.SetFocus;

procedure TMainForm.InPutEditKeyPress(Sender: TObject; var Key: Char);
var x:real;Code:integer;
begin
If Key=#13 then
begin

else
begin
MessageDlg('Недопустимые символы.',mtError, [mbOk], 0);
end
end
end;
procedure TMainForm.NextButtonClick(Sender: TObject);
begin

Дополнительные скалярные типы данных
а) целый
Cardinal 0..2147483647 без знака 4 байта
б) логические
ByteBool

Тип «Дата-время»

д) TDateTime - Double – целая часть – число дней

Тип «Дата-время»

7) function StrToDate(S:String):TDateTime – преобразует строку в дату, разделитель –

Строковые типы

a) ShortString – до 255 символов, 0-й байт – длина

Дополнительные процедуры и функции

1) function ANSILowerCase(const S:String):String – заменяет прописные буквы

Дополнительные процедуры и функции (2)

7) function IntToStr(V:Integer):String – преобразует целое число

1. Изменены некоторые служебные слова и названия процедур:
Text ⇒ TextFile
Assign ⇒

Процедурный тип данных

1) При объявлении указателя на метод добавляют of object
Пример:
Type

Основная особенность: все объекты размещаются в динамической памяти.
Описание класса:
Type <Имя объявляемого

Переменные класса являются ссылками. В отличие от указателей операция разыменования при

Type
pTNum = ^TNum;
TNum = Object
n: integer;

Var A, B:TNum;
A:=TNum.Create;
B:=A;
B.Destroy;
A.n:=3; {!!!}

Особенности работы с объектами

1) виртуальные методы:
procedure Print;virtual; {в базовом класса}
procedure Print;override; {в

8.6 События Мыши

1 Событие «Нажатие кнопки мыши над компонентом окна приложения»:

События Мыши (2)

2 Событие «Движение мыши»:
procedure <Имя компонента>MouseMove(Sender: TObject; Shift: TShiftState;

8.7 Создание графических изображений

Изображения в Windows создаются с помощью типов:
точка,
прямоугольник;
и

Точка и прямоугольник

Точка – тип, позволяющий определить точку на экране:
type TPoint

Компонент перо (класс TPen)

C помощью класса TPen создается объект Перо, служащий

Компонент Кисть (класс TBrush)

Объекты класса TBrush служат для заполнения внутренего пространства.
Свойства:
Color:TColor

Компонент Шрифт (класс TFont)

Объект класса TFont – определяет шрифт, которым выводится

Компонент Канва (класс TCanvas)

Класс создает Канву – холст для рисования.
Свойства:
Brush:TBrush

Основные методы класса TCanvas

procedure MoveTo(X,Y:Integer) – перемещает перо в указанную точку;
procedure

Основные методы класса TCanvas (2)

procedure Arc(X1,Y1,X2,Y2,X3,Y3, X4,Y4:integer) – чертит дугу эллипса

Основные методы класса TCanvas (3)

procedure FillRect(const Rect: TRect)– закрашивает кистью прямоугольник,

Основные методы класса TCanvas (4)

procedure TextOut(X,Y:Integer; const Text:string)– вывод строки текста

Компонент Образ (класс TImage)

Образ – окно для работы с графикой.
Свойства:
AutoSize:Boolean

Рисование прямоугольников (Ex8_2)

Модуль MainUnit

unit MainUnit;
interface
Uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Модуль MainUnit (2)

var MainForm: TMainForm;
implementation
Var Rect:TRect;first:boolean;
{$R *.DFM}
procedure TMainForm.FormActivate(Sender: TObject);
begin Image.Canvas.Brush.Color:=clWhite;

Модуль MainUnit (3)

procedure TMainForm.ImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if

Модуль MainUnit (4)

procedure TMainForm.ImageMouseUp(Sender: TObject; Button: TMouseButton;Shift:TShiftState;X,Y:Integer);
begin
if Button=mbLeft then
begin

8.8 Три составляющих движения объекта на плоскости

1 Перемещение
x1 = x

Вращение фигур (Ex8_03)

Объектная декомпозиция

h*sin α

h

h*cos α

α

(x,y)

dx = h*cos α

dy = h*sin α

Диаграмма классов предметной области

TObject

TFigure

-x,y,halflen,
-dx,dy,
-Image

-Draw()
-Rel()
+Create()
+Move()

TLine

-Draw()

TSquare

-Draw()

TCircle

- r

+Create()
-Draw()

Модуль Figure

Unit Figure;
Interface Uses graphics,ExtCtrls;
Type TFigure=Class
x,y, halflen,dx,dy:integer; Image:TImage;
constructor Create(ax,ay,ah:integer;aImage:TImage);

Модуль Figure (2)

Implementation
Constructor TFigure.Create;
Begin
inherited Create;
x:=ax; y:=ay; halflen:=ah;

Модуль Figure (3)

Procedure TLine.Draw;
Begin Image.Canvas.MoveTo(x+dx,y+dy);
Image.Canvas.LineTo(x-dx,y-dy);
End;
Procedure

Описание класса окна

Unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,

Объявление объектов

implementation
uses Figure;
{$R *.dfm}
Var
t:single=0.0;
L:TLine;
S:TSquare;
C:TCircle;
procedure TMainForm.FormActivate(Sender: TObject);
begin

Создание объектов и реализация движения

procedure TMainForm.BeginButtonClick(Sender: TObject);
begin
L:=TLine.Create(60,100,50,Image);
S:=TSquare.Create(180,100,50,Image);
C:=TCircle.Create(300,100,50,10,Image);
Timer1.Enabled:=true;

Процедура организации движения

procedure TMainForm.EndButtonClick(Sender: TObject);
begin
Close;
end;
initialization
finalization
L.Free;
S.Free;
C.Free;
end.

Построение графика функции (Ex 8.4)

Отображение графика функции на экран

Масштабы по осям ОХ и ОУ:
xm ym

Модуль Graphic

unit Graphic;
Interface
Uses ExtCtrls,Graphics;
Type Fn=Function(X:single):single;
Procedure Run(xn, xk:single; n:integer; F:Fn;

Модуль Graphic (2)

Begin
Image.Canvas.Pen.Color:=clGreen;
Image.Canvas.Rectangle(x1,y1,x2,y2); {рамка}
xm:=x2-x1+1; ym:=y2-y1+1; {область графика}
dx:=(xk-xn)/n;

Модуль Graphic (3)

Image.Canvas.Pen.Color:=clRed;
Image.Canvas.Pen.Width:=3;
x:=xn;
for i:=1 to n do

Модуль Graphic (4)

x:=xn;
dxl:=(xk-xn)/5; {расстояние между линиями сетки}
Image.Canvas.Pen.Width:=1;
Image.Canvas.Pen.Color:=clBlue;

Модуль Graphic (5)

y:=Fmin;
dyl:=(fmax-fmin)/5;
repeat {горизонтальные линии сетки и подпись}

Секция реализации модуля MainUnit

implementation
uses Graphic;
{$R *.dfm}
Function f(x:single):single;
Begin Result:=abs(0.64*sin(x*2)); End;
procedure TMainForm.FormActivate(Sender:

Примитивный графический редактор (Ex 8.5)

Объектная декомпозиция

Активизировать

Диаграмма классов предметной области

Unit Figure;
Interface
Uses extctrls,Graphics;
Type TMyFigure=class
public
x,y,Radius:Word;
Color:TColor;

TMyCircle=class(TMyFigure)
public Procedure Draw; override;
end;
TMySquare=class(TMyFigure)
public Procedure

Procedure TMyFigure.Clear;
Var TempColor:TColor;
Begin TempColor:=Color;
Color:=Image.Canvas.Brush.Color;
Draw;
Color:=TempColor;
End;
Procedure

Модуль Figure

unit Main;
interface
uses Windows,Messages,SysUtils,Variants,Classes,Graphics, Controls,Forms,Dialogs,ComCtrls, StdCtrls, ExtCtrls;
type
TMainForm = class(TForm)
Image: TImage;

procedure FormActivate(Sender: TObject);
procedure ImageMouseDown(Sender: TObject;… );
procedure UpDownClick(Sender: TObject; …);
procedure ColorButtonClick(Sender: TObject);
procedure

procedure TMainForm.ImageMouseDown(Sender: TObject; Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
begin
if Button=mbLeft then
case RadioGroup.ItemIndex of
0:

procedure TMainForm.UpDownClick(Sender:TObject; Button:TUDBtnType);
begin
if C<>nil then
begin C.Clear;
C.Radius:=strtoint(rEdit.Text); C.Draw;