Скачать: CL | DM;

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

← →
Ш-К   (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]. А у меня там иконки.

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c