Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





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

Автор: 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 © LSD Software 2006 - 2011