Dec
|
 Posted: Wed Oct 03, 2007 14:01 Post subject: |
 |
|
Ну можно еще и так:
| Code: | type
TIEProgressEvent2 = procedure(Sender: TObject; Per: integer);
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 IOProgress(Sender: TObject; per: integer);
begin
end; |
| Code: |
Img := TImageEnIO.Create(nil);
Provider := TProgressProvider.Create(IOProgress);
Img.OnProgress:= Provider.IOProgress;
|
Писал на вскидку, поэтому возможны ошибки, но мысль, я надеюсь, понятна. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
