SCHMaster
|
Posted: Fri Oct 05, 2007 00:11 Post subject: |
|
|
... в этом случае (код от Deca) обработка события не привязываетс к объекту (форме), т.е. для юзания в прогах без форм именно то, че нужно.
А стандартные делфевые VCL методы обработки события предусматривают привязку к объекту.
В кач. примера - тот же код от Deca, но с "привязкой".
Добавлю...
Code: | type
TIEProgressEvent2 = procedure(Sender: TObject; Per: integer) of object; <--- Вот ОНО
TProgressProvider = class
public
constructor Create(AEvent: TIEProgressEvent2);
procedure IOProgress(Sender: TObject; Per: integer);
private
FEvent: TIEProgressEvent2;
end;
constructor TProgressProvider.Create(AEvent: TIEProgressEvent2);
begin
inherited Create;
FEvent := AEvent
end;
procedure TProgressProvider.IOProgress(Sender: TObject; Per: integer);
begin
if Assigned(FEvent) then FEvent(Sender, Per);
end;
Вот ОНО
|
procedure TMyParentObject.IOProgress(Sender: TObject; per: integer);
begin
end; |
Если непонял, мыль код - разберемся - schmСОБАКАukr.net _________________ Хороший юзер - мертвый юзер
Мои работы |
|