Обьединение классов! :)

← →
TikTanik (2005-08-23 14:22) [0]

Знатоки ООП! Помогите!

Написал класс (1), а теперь задумал их обьединить с другим классом (2).
Одним из свойств которого является ссылка на функцию (вернее сама функция).
Функция вызывается классом 2 в ответ на одно из его внутренних событий.
Необходимо перехватить это событие из 1 и обработать его своим методом!!!
Неполучается! Пишет:
[Error] Unit001.pas(150): Incompatible types: "regular procedure and method pointer"
Что это значит???

логика примерно такая:

type
TFF = Function(a, b:integer) :integer;
TAaa = class(TObject)
FF: TFF;
end;

TBbb = class(TObject)
Aaa: TAaa;
Function Run(a, b:integer) :integer;
constructor Create;
end;

Procedure TAaa.Runer1;
begin
ShowMessage("Hello world!");
end;

constructor TBbb.Create;
begin
Aaa:= TAaa.Create;
Aaa.FF := Runer1; //вот здесь выдает ошибку!
end;

← →
Джо © (2005-08-23 14:23) [1]

TFF = Function(a, b:integer) :integer of object;

Только причем здесь какое-то "объединение"?

Обьединение классов! :) Найти похожие ветки