Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 447

•  TDictionary Custom Sort  6 479

•  Fast Watermark Sources  6 272

•  3D Designer  9 220

•  Sik Screen Capture  6 609

•  Patch Maker  6 992

•  Айболит (remote control)  6 995

•  ListBox Drag & Drop  5 864

•  Доска для игры Реверси  97 039

•  Графические эффекты  7 193

•  Рисование по маске  6 489

•  Перетаскивание изображений  5 362

•  Canvas Drawing  5 739

•  Рисование Луны  5 449

•  Поворот изображения  4 978

•  Рисование стержней  3 535

•  Paint on Shape  2 803

•  Генератор кроссвордов  3 668

•  Головоломка Paletto  2 959

•  Теорема Монжа об окружностях  3 762

•  Пазл Numbrix  2 481

•  Заборы и коммивояжеры  3 166

•  Игра HIP  2 132

•  Игра Go (Го)  2 066

•  Симулятор лифта  2 438

•  Программа укладки плитки  2 111

•  Генератор лабиринта  2 583

•  Проверка числового ввода  2 262

•  HEX View  2 590

•  Физический маятник  2 202

 
скрыть

Delphi Sources

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



Автор: Steve

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

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

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

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

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

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

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

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

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


Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте