Делегирование события

Автор: Steve

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

Вот как поступить в вашей ситуации:

Определите тип процедуры, использующейся в качестве обработчика события. Допустим, ваш обработчик OnCalculate имеет один параметр типа Integer (присутствующий лишь для демонстрации идеи).

type TCalculateEvent = procedure(I: Integer) of object;

Теперь объявите ваш класс:

type TSomeClass = class(TObject) private FOnCalculate: TCalculateEvent; procedure DoCalculate(I: Integer); public property OnCalculate: TCalculateEvent read FOnCalculate write FOnCalculate; end;

Метод DoCalculate совсем простой:

procedure TSomeClass.DoCalculate(I: Integer); begin if Assigned(FOnCalculate) then FOnCalculate(I); end;

Теперь вы можете присваивать значение объекту TSomeClass, и назначать любую процедуру событию OnCalculate (естественно, при условии, что ее объявление соответствует объявлению TCalculateEvent).

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 048 • TDictionary Custom Sort 6 154 • Fast Watermark Sources 5 949 • 3D Designer 8 814 • Sik Screen Capture 6 285 • Patch Maker 6 702 • Айболит (remote control) 6 695 • ListBox Drag & Drop 5 549 • Доска для игры Реверси 95 800 • Графические эффекты 6 924 • Рисование по маске 6 153 • Перетаскивание изображений 5 078 • Canvas Drawing 5 457 • Рисование Луны 5 167 • Поворот изображения 4 712 • Рисование стержней 3 323 • Paint on Shape 2 567 • Генератор кроссвордов 3 458 • Головоломка Paletto 2 766 • Теорема Монжа об окружностях 3 569 • Пазл Numbrix 2 337 • Заборы и коммивояжеры 3 022 • Игра HIP 1 980 • Игра Go (Го) 1 902 • Симулятор лифта 2 253 • Программа укладки плитки 1 963 • Генератор лабиринта 2 414 • Проверка числового ввода 2 093 • HEX View 2 422 • Физический маятник 2 051