Ракитин Р.Ю. ООП в Turbo Delphi

31

Рассмотрим базовые классы Delphi.

Класс TObject

Класс TObject является родоначальником всей иерархии использующихся в Delphi классов VCL. Он реализует функции, которые обязательно будет выполнять любой объект, который может быть создан в среде разработки.

В первую очередь – это создание экземпляра объекта и его уничтожение. Любой объект выполняет эти две операции в обязательном порядке.

Процесс создания объекта включает выделение области адресного пространства, установку указателя на экземпляр объекта, задание начальных значений свойств и выполнение установочных действий, связанных с назначением объекта. В общем случае две последние операции могут не выполняться.

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

constructor Create;

В конструкторах потомков это объявление может перекрываться, но при

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

constructor TSomeObject.Create; begin

inherited Create; //вызываем родительский конструктор

...

end;

Для уничтожения экземпляра объекта в классе TObject предназначены методы Destroy и Free:

destructor Destroy; virtual; procedure Free;

Как видно из объявления настоящим деструктором является метод Destroy. Он обеспечивает освобождение всех занимаемых экземпляром объекта ресурсов. Обычно при создании новых классов деструктор всегда перекрывается для того, чтобы корректно завершить работу с данными.

constructor TSomeObject.Destroy; begin

...

//вызываем родительский деструктор inherited Destroy;

end;

При уничтожении объектов рекомендуется вместо деструктора использовать метод Free, который просто вызывает деструктор, но перед этим проверяет, чтобы указатель на экземпляр объекта был не пустым (не был равен

32

Nil). Если объект является владельцем других объектов (например, форма владеет всеми размешенными на ней компонентами), то метод Free автоматически вызовет методы Free для всех объектов. Поэтому при закрытии

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

Как известно, программирование для Windows основано на событиях.

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

Метод

procedure Dispatch(var Message); virtual;

осуществляет обработку сообщений, поступающих к объекту. Он определяет,

сможет ли объект обработать сообщение при помощи собственных обработчиков событий.

В целом класс TObject может служить для создания на его основе некоторых простых классов для использования в приложениях.

Класс TPersistent

В переводе с английского «persistent» означает «устойчивый», «постоянный». «Постоянство» данного класса заключается в виртуальном

методе

procedure Assign(Source: TPersistent);

Этот важнейший метод осуществляет копирование содержимого одного объекта (source) в другой (Self, т. е. в объект, вызвавший метод Assign). При этом объект-получатель остается самим собой, чего нельзя достигнуть, используя простое присваивание переменных объектного типа:

FirstObject := SecondObject;

В этом случае указатель на одну область адресного пространства, содержащую экземпляр класса (объект), замещается указателем на другую область адресного пространства, содержащую другой объект.

Метод Assign позволяет продублировать объект, присвоить одному объекту значения всех свойств другого. При этом объекты не всегда должны быть одного и того же класса; более того они не обязательно должны находиться в отношениях «родитель – потомок». Данный метод тем и хорош, что позволяет полиморфное присвоение. Например, конструкция

Clipboard.Assign(Picture);

позволяет скопировать содержимое картинки Picture в папку обмена Windows (объект Clipboard). Какова здесь логика? Известно, что в папку обмена можно поместить растровую картинку, текст, метафайл, мультимедийные данные и т.п. Метод Assign класса TClipboard переписан таким образом, чтобы обеспечить присвоение (т. е. реальное перемещение в папку обмена) всех этих данных.

33

procedure TClipboard.Assign (Source: TPersistent); begin

if Source is TPicture

then AssignPicture (TPicture (Source)) else

if Source is TGraphic

then AssignGraphic(TGraphic(Source)) else inherited Assign(Source);

end;

Для обеспечения взаимодействия потомков класса TPersistent предназначен метод

function GetNamePath: string; dynamic;

Он возвращает имя объекта для передачи его в Инспектор объектов.

Класс TPersistent никогда не используется напрямую, от него порождаются потомки, которые должны уметь передавать другим объектам значения своих свойств, но не являться при этом компонентами.

Класс TComponent

Класс TComponent является прародителем всех компонентов VCL Delphi. Он инкапсулирует наиболее общие свойства и методы компонентов, включая:

∙возможность добавлять компонент в палитру компонентов и работать с ним при визуальном проектировании;

∙способность быть владельцем других компонентов или управляться ими;

∙возможности обмена с потоками и файлами;

∙возможность служить оболочкой элементов ActiveX и других объектов.

В классе TComponent появляются первые свойства, которые отображаются в Инспекторе объектов. Это свойство

property Name: TComponentName;

Оно содержит имя экземпляра компонента, которое используется для идентификации компонента в приложении. Тип TComponentName представляет собой обычную строку.

Свойство

Tag: Longint;

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

Для компонентов существует своя иерархия, поэтому в классе введен механизм учета и управления компонентами, для которых данный компонент является владельцем. Особенность потомков класса TComponent заключается в

36

где сложный класс TFont задает все характеристики шрифта. Подробнее он будет рассмотрен позднее.

Элемент управления можно сделать видимым или невидимым. Для этого

применяется свойство

property Visible: Boolean;

Этих же результатов можно достичь методами Show (компонент видим) и Hide (компонент невидим).

Опубликованное свойство property Hint: string;

содержит текст ярлыка – однострочной подсказки, которая появляется в маленькой рамке при остановке мыши на элементе управления.

Для управления ярлыком используется свойство property ShowHint: Boolean;

При значении True ярлык начинает работать, при значении False ярлык выключается.

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

property PopupMenu: TPopupMenu;

Доступность элемента управления в целом определяется свойством property Enabled: Boolean;

При значении True элемент управления полностью работоспособен. При значении False элемент управления неактивен и отображается серым цветом.

Класс TControl определяет методы, обрабатывающие сообщения мыши и обеспечивающие генерацию соответствующих событий (обычное, двойное нажатие, движение с нажатыми клавишами и т.п.).

Класс TWinControl

Класс TWinControl – оконные элементы – наследуется от класса TControl. Соответственно, класс TWinControl включает методы обработки сообщений клавиатуры, которые формируют события клавиатуры.

Класс TWinControl является базовым абстрактным классом для всех оконных компонентов Delphi, то есть для компонентов, которые:

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

∙могут содержать другие компоненты, то есть быть компонентами- контейнерами, компонентами-родителями других дочерних компонентов.

∙имеют дескрипторы окна.

37

Класс TWinControl устанавливает между оконными элементами управления отношение «старший – младший». Это отношение определяет подчиненность изображений оконных элементов управления на экране. Например, если форма становится невидимой, то невидимыми становятся все ее младшие элементы управления (метки, кнопки и т.д.).

То же отношение позволяет управлять единообразием изображения старших и младших компонент (шрифт, цвет и т.п.). Используя отношение «старший – младший», можно определить однотипное поведение оконных элементов управления.

Для определения отношения «старший – младший» класс TWinControl включает следующие свойства:

Parent: TWinControl; – содержит указатель на старший элемент управления;

ControlIndex: integer; – содержит номер текущего элемента управления в массиве Controls (начиная с 0) старшего элемента управления,

определяющий порядок передачи фокуса ввода среди младших элементов управления;

Controls [Index: Integer]: TControl; - свойство-массив, содержит

указатели на все младшие элементы управления по отношению с текущему старшему;

ControlCount: Integer; – содержит количество младших элементов управления для текущего старшего элемента.

Для управления единообразием изображений используются следующие свойства:

ParentColor: Boolean – определяет, будут ли использоваться цвета родительского элемента или элемент будет сам устанавливать цвет;

ParentFont: Boolean – определяет, будут ли использоваться параметры

шрифта родительского элемента или должны использоваться собственные установки;

ParentShowHint: Boolean – определяет, будет ли использоваться свойство ShowHint родительского элемента или собственное.

Кроме этого, существуют специальные методы, позволяющие управлять процессом передачи фокуса ввода:

procedure SetFocus; virtual; – позволяет установить фокус ввода на нужный оконный элемент управления;

Enabled: Boolean – определяет, может ли данный элемент принимать фокус ввода;

TabStop: Boolean; – позволяет отключить возможность объекта реагировать на нажатие клавиши Tab;

38

Класс TGraphicControl

Класс TGraphicControl предназначен для создания на его основе визуальных компонентов, не получающих фокус в процессе выполнения приложения. Так как непосредственным предком класса является класс TControl, потомки TGraphicControl умеют реагировать на управляющие воздействия мышью.

Наглядный пример элемента управления, которому не нужно получать фокус, – это компонент TLabel, предназначенный для отображения текста, или компонент TImage, предназначенный для визуализации изображений.

Для визуализации элементов управления на основе этого класса используется канва, инкапсулированная в классе TCanvas.

Доступ к канве осуществляется через свойство property Canvas: TCanvas;

Отрисовка элемента управления осуществляется методом procedure PaintWindow(DC: HDC); override;

после получения сообщения WM_PAINT.

39

Глава 3. Создание первого проекта в Delphi

Прежде чем приступить к созданию первой программы, необходимо определиться с соглашениями, принятыми в Delphi. В первую очередь это касается структуры файлов и способа оформления программного кода.

1.Файлы проекта Delphi

Проект Delphi состоит из форм, модулей, установок параметров проекта, ресурсов и т.д. Вся эта информация размещается в файлах. Многие из этих фай- лов автоматически создаются Delphi, когда вы строите приложение. Ресурсы, такие как битовые матрицы, пиктограммы и т.д., находятся в файлах, которые

вы получаете из других источников или создаете при помощи многочисленных инструментов и редакторов ресурсов, имеющихся в вашем распоряжении. Кроме того компилятор также создает ряд файлов.

Когда вы проектируете приложение, Delphi создает следующие основные файлы:

∙Файл проекта (.dpr) – это текстовый файл, содержащий операторы инициализации и запуска программы на выполнение;

∙Файл проекта (.bdsproj) – этот текстовый файл содержит служебную информацию о проекте и его версии;

∙Файл группы проектов (.bdsgroup) – это текстовый файл, хранящий информацию о проектах, входящих в группу;

∙Файл модуля (.pas) – каждой создаваемой форме и фрейму соответствует текстовый файл модуля, используемый для хранения кода. Можно создавать модули, не связанные с формами. Многие из функций и процедур Delphi хранятся в модулях;

∙Файл формы (.dfm или .nfm) – это текстовый файл, который создается Delphi для хранения информации о формах и фреймах. Каждому файлу формы соответствует файл модуля (.pas);

∙Файл ресурсов (.res) – этот бинарный файл содержит используемую проектом пиктограмму и прочие ресурсы;

∙Файл конфигурации проекта (.cfg) – в этом файле хранятся установки проекта, в частности, используемые директивы компилятора;

∙Файл кэширования (.identcache) – файл хранит информацию, необходимую для регистрации в кэше сборок;

∙Файлы резервных копий (~dp,.~df,.~pa) – это файлы, в которых осуществляется копирование файлов проекта, формы и модуля. Если вы что-то безнадежно испортили в своем проекте, то можно изменить расширения этих файлов и, таким образом, вернуться к предыдущему работоспособному варианту.