Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как правильно реализовывывать наследников? property OnSM: TNotify

Glex © (2006-04-05 08:19:00)
Пишу наследник от TWebBrowser.

У класса TWebBrowser есть свойство
property OnBeforeNavigate2: TWebBrowserBeforeNavigate2;

Я хочу чтобы у наследника(TCustomizedWebBrowser) происходили задуманные мной действия.

Когда я писал наследники от классов, где не было Events, а были процедуры, я делал так

private
procedure DefaultProc(Sender: TObject); override;

А в implementation доописывал этот DefaultProc(вначале добавлял inherited;, а дальше писал что мне надо).
Как сделать то же с OnBeforeNavigate?

Вот описание класса TWebBrowserBeforeNavigate2:
type TWebBrowserBeforeNavigate2 = procedure(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant; var Headers: OleVariant; var Cancel: WordBool) of object;

PS: ..загадочный 'of object'...

Glex (2006-05-01 23:47:00) [1]
up

Glex (2006-04-11 18:09:00) [2]
А как правильнее?

Плохиш (2006-04-05 17:57:00) [3]

> Правильнее так?:

нет

> Спасибо за разъяснения по поводу of object

хоть что-то помогло.

Glex (2006-04-05 17:36:00) [4]
А можно код.

Правильнее так?:
private
property OnBeforeNavigate2: TWebBrowserBeforeNavigate2; override;
...

implementation
??
---

Спасибо за разъяснения по поводу of object

Плохиш (2006-04-05 11:28:00) [5]

> PS: ..загадочный 'of object'

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

> Я хочу чтобы у наследника(TCustomizedWebBrowser) происходили
> задуманные мной действия.

Не туда роешь, смотри в сторону методов Navigate и Navigate2.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »