Переопределить событие

← →
Ш-К (2004-05-21 12:39) [0]

Есть чужой класс:

TFirst = class
OnEvent: TNotifyEvent;
function IsTest: boolean;
end;

function TFirst.IsTest: boolean;
begin
Result := Assigned(OnEvent);
end;

Мне нужно создать потомка, чтобы при вызове OnEvent вызывался сначала он сам, а потом мой обработчик. Притом, если not Assigned(OnEvent), мой обработчик тоже вызывался, но IsTest возвращал False.

Класс не мой (DevExpress), виртуального метода, вызывающего OnEvent нет. IsTest спрятан далеко в недрах, описан в другом классе и не доступен; здессь показан для наглядности.

Что можно придумать?

← →
Курдль © (2004-05-21 12:48) [1]

А Inherited не подойдет?

← →
Silver Alex © (2004-05-21 12:49) [2]

> виртуального метода, вызывающего OnEvent нет

где-то все равно должен быть вызов FOnEvent, надо найти просто. Ты лучше скажи какой именно класс DevExpress и какое событие, мы посмотрим, может найдем

← →
Ш-К (2004-05-21 13:05) [3]

Silver Alex © (21.05.04 12:49) [2]
TcxCustomEditorRowProperties.OnGetDisplayText
Если это св-во заполнить, VerticalGrid выводит то, что [var AText: string]. А у меня там иконки.

Всем спасибо разобрался сам.

Переопределить событие Найти похожие ветки