Делегирование Опции

[F0b0s]

у компонента PaintBox хочу процедуру вызываваемую по событию OnPaint заменить на свою процедуру описанную в собственном классе.
как это сделать?

[F0b0s]

Вообщем сделал вот так:

Код

TForm1 = class(TForm)
    ....
    procedure PaintBox1Paint(Sender: TObject);
   end;
TMyProc = Procedure (Sender:TObject) of object;
TMyClass = class
    FMyProc: TMyProc;
     ....
end;  
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
// код рисования
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
   MyClass:=TMyClass.Create;
   MyClass.FMyProc:= Form1.PaintBox1Paint;
   PaintBox1.OnPaint:=MyClass.FMyProc;
end;

думаете сойдет за делегирование?

Сообщение отредактировано: F0b0s - 14.12.2008 22:53