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

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

Например:

Tl = class (TObject)

procedure Test (I: Integer); overload; virtual;

end;

T2 = class (Tl)

procedure Test (I: Integer); reintroduce; overload;

End; S: String

· Нельзя перегружать метод в разделе published объявления объекта. Например, недопустимо следующее объявление:

Tl = class (TMyObject)

Published

procedure Test (I: integer); procedure Test (S: string); •nd;

 

В то же время можно перекрывать метод в разделе published, если эт происходит на разных уровнях иерархии. Например: Tl = class published

procedure Test (I: integer); end;

T2 = class (Tl); published

procedure Test (S: string); end;

3. При перегрузке методов необходимо учитывать возможность возникновен] неоднозначных вызовов перегруженных методов, например, при использовании в перегружаемых методах параметров по умолчанию.

Вызов переопределенного метода родительского класса (inherited) При реализации метода, переопределенного любым способом в классе'? наследнике (переопределенного статического метода, перекрытого виртуальког или динамического метода - override, перегруженного метода - overload), остается возможность вызвать перекрытый метод класса родителя. Для этого перед именем метода при его вызове ставится ключевое слово inherite' Например:

inherited Create (...);

вызывает метод Create родителя.

Если записать слово inherited и после него не писать имя вызываемого метода, то будет вызываться наследуемый метод, совпадающий по имени с именем того метода, из которого он вызывается. Например, если написать! inheri ted в конструкторе, то вызовется конструктор родительского класса.

§3.10. Указатели на методы. События

Очень важной конструкцией языка Object Pascal является тип данных указателя на метод. С технической точки зрения, это процедурный тип данны: со скрытым параметром self. Переменная типа указатель на метод содержи два адреса: адрес кода метода и адрес экземпляра объекта, который появляется в коде метода как неявный параметр self.

Описание типа указатель на метод выглядит как описание обычног процедурного типа с добавленными в конце ключевыми словами of object.

Например, описание процедурного типа: type IntProceduralType = procedure (Num: integer);

Описание типа указатель на метод: type IntMethodPointerType = procedure (Num: integer) of object; Поля такого типа можно использовать в объектах.

type

MyClass = class Value: Integer;

Operation: IntMethodPointerType and;

Полю Operation можно присвоить любой совместимый метод - такого же вида (процедура или функция) и с таким же набором параметров, для метода- функции должен совпадать также тип возвращаемого результата. Например, можно написать еще один класс, у которого есть метод с целочисленным

параметром: type

AnotherClass = class X: Integer;

procedure Add (N: Integer);

end;

Если определить объекты этих двух классов, например:

var

MyObject: MyClass; AnothorObject: AnotherClass;

то после инициализации объектов можно сделать такое присваивание:

MyObject.Operation:= AnotherObject.Add;

если после этого вызвать метод MyObject.Operation, то в действительности произойдет вызов метода Add объекта AnotherOb ject.

Такая техника является краеугольным камнем компонентной технологии Delphi, поскольку позволяет реализовать технологию делегирования. Если написан (и даже скомпилирован) объект, у которого есть поля в виде указателей на методы, то можно легко изменить их поведение, просто присваивая этим

указателям новые методы.

Например, когда добавляется событие OnClick для кнопки, Delphi

присваивает свойству кнопки с именем OnClick (типа указатель на метод) имя метода формы, который является обработчиком указанного события. Таким образом, при нажатии на кнопку, выполняется код данного обработчика события, даже если он описан внутри совершенно другого класса (класса формы обычно).

Такое делегирование можно осуществить и в тексте программы. Пример с присваиванием обработчику события щелчка кнопки метода проектируемой формы упрощенно можно Представить следующим образом. В Delphi определен тип TNotifyEvent - указатель на метод. В классе TButton определено свойство OnClick типа TNotifyEvent (на самом деле это свойство определено в одном из классов-родителей класса TButton, что для данного примера

несущественно), type

TNotifyEvent = procedure (Sender: TObject) of object;

TButton = class(TButtonControl)

private

FOnClick: TNotifyEvent; public

property OnClick: TNotifyEvent read FOnClick write FOnClick; end;

Теперь, если в форме описать метод, подходящий к типу TNotifyEvent (то есть процедуру с одним параметром типа TObject).

 

 

 

MyClassRef = class of MyClass;

Далее можно определять переменные обоих типов:

Var

AClassRef: MyClassRef; AnObject: MyClass;

Ссылки на класс используют для изменения типа класса во время выполнения

Ссылки на класс можно использовать во всех выражениях, где допустим

использование типа данных. Таких выражений не так уж много, но есть несколько

интересных случаев. Простейший из них - создание объекта. Например: AClassRef:= MyClass;

AnObject:= AClassRef.Create;

Ссылки на класс напоминают концепцию метакласса, присутствующую в

некоторых других объектно-ориентированных языках. Однако в Object Pascal

ссылка на класс не является классом; она является всего лишь указателем на тип.

Так что аналогия с метаклассами (классами, описывающими другие классы) не совсем верна.

Ссылки на класс не были бы так полезны, если бы не поддерживали то же

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

Определяя переменную-ссылку на класс, такую как MyClassRef можно

присвоить ей как родной класс, так и все его подклассы. Delphi определяв множество ссылок на классы в библиотеках VCL и RTL.

TClass = class of TObject; ExceptClass = class of Exception; TComponentClass = class of TComponent; TControlClass = class of TControl; TFormClass = diasa of TForm;

 

 

Глава 4. КОМПОНЕНТЫ DELPHI

§4.1. Палитра компонентов Delphi

Компоненты Delphi представлены на. палитре компонентов (описание см. §1.3). Страницы палитры компонентов группируют компоненты по типам.

Различные версии Delphi имеют отличающиеся палитры компонентов (рис.4.1-4.4).

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

Таблица 4.1

Название страницы	Описание
Standard	Содержит наиболее распространенные, базовые компоненты, такие как главное меню, метка, поле ввода, кнопка и т.д.
Additional	Является расширением страницы Standard, содержит часто используемые компоненты, или компоненты-модификации компонентов страницы Standard, например: кнопки с рисунком, для панели инструментов, маскированное поле ввода, таблицы строк, изображений, рисунок и т.д.
Win32	Включает элементы управления, присущие 32-разрядной версии Windows, например страница с закладками, анимированное изображение, перемещаемая панель инструментов, дерево и т.д.
System	Содержит компоненты для доступа к объектам операционной системы, например, таймер, медиаплейер. окно рисования, контейнер OLE- объекта, механизмы обмена DDE
Dialogs	Представлены компоненты, реализующие стандартные диалоги Windows.
WLn3.1	Включает элементы управления, присущие 16-разрядной версии Windows
Data Access	Содержит компоненты, определяющие доступ к базам данных

 

 

 

 

описывает все классы, а его листья (а также отдельные ветви нижних уровней) i являются классами тех компонентов, которые представлены на пшшгЩ компонентов, например, класс обычной кнопки TButton.

Таким образом, рассматривая свойства и методы классов-предков компонентов (TObject, TPersistent, TComponent, TControl), можно рассмотреть все общие свойства и методы компонентов. Упрощенная иерархи классов - предков компонентов Delphi представлена на рис. 4.5.

Рис. 4.5. Иерархия классов-предков компонентов Delphi

Работа с иерархией объектов VCL осуществляется с помощью инструментА-

Browser, который может быть вызван командой главного меню View->Browser

или быстрыми клавишами Sh^J f t+Ctrl+B. В частности по этой иерархии можн установить, что компонент TButton является наследником клас TButtonControl, который имеет своим предком класс TWinControl который происходит от класса TControl и т.д. Следовательно, зная свойства и методы классов TWinControl, TControl и т.д., можно предполагать каки свойства и методы есть у кнопки.

Классы компонентов, как и всё классы Delphi, происходят от класса TObject

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

Следующим классом, от которого происходят все классы компонентов, и который происходит непосредственно от TObject, является кла- TPersistent. Он обеспечивает своих потомков возможностью взаимодействовать с другими объектами. В частности, класс TPersistent передает своим потомкам виртуальный метод Assign.

procedure Assign (Source: TPersistent);

С помощью этого метода поля и свойства объекта Source копируются в объект, вызвавший метод Assign. Если описаны два объекта Objl и Obj2 классов-наследников TPersistent, то записи Objl Obj2; // присваивание Objl.Assign (Obj?); // копирование

имеют совершенно разный смысл. Если в первом случае переменная-объект Objl (по сути указатель) начинает указывать на другой экземпляр объекта, то во втором случае происходит копирование полей из экземпляра объекта Obj 2 в экземпляр объекта Obj 1 (рис. 4.6).

Рис. 4.6. Различие выполнения операции присваивания и метода Assign

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

Следующим классом в рассматриваемой иерархии стоит класс TComponent. В нем инкапсулированы самые общие свойства и методы компонентов. Класс TComponent служит базой для создания как видимых, так и невидимых компонентов. Классы невизуальных компонентов можно создавать как непосредственных наследников этого класса. Механизмы, реализованные в классе TComponent, обеспечивают взаимодействие компонента со средой разработки (Палитрой компонентов и Инспектором объектов).

Класс TControl происходит от TComponent и описывает общие свойства и методы видимых компонентов. Два наследника этого класса TWinControl и TGraphicControl - определяют соответственно две группы компонентов

 

имеющих оконный ресурс (способных получать и обрабатывать сообщения Windows) и не имеющих этого ресурса.

Оконный компонент в момент своего создания обращается к Windows с требованием выделения оконного ресурса и, если требование удовлетворяется- получает так называемый дескриптор окна. Класс TWinControl и его потомки хранят дескриптор окна в свойстве Handle. Программист может использовать этот дескриптор для непосредственного обращения к функциям API Windows. Потомки TGraphicControl не требуют от Windows дефицитного оконного ресурса, но они и не могут обрабатывать сообщения Windows - управляет такими компонентами оконный компонент-владелец (например, форма), который и является посредником между Windows и неоконными компонентами.

На основе класса TWinControl создан ряд дополнительных классов, например: TCustomControl, TScrollingWinControl и пр. В частности, свойства и методы классов TCustomControl и TGraphicControl обеспечивают компоненты дополнительными возможностями по рисованию графики на канве.