Declaration
property OnFinishWork: TNotifyEvent;
Description
OnFinishWork occurs when an input/output task ends. It is useful for resetting a progress bar or to know when a thread ends in a asynchronous mode.
procedure TForm1.ImageEnIO1Progress(Sender: TObject; per: Integer);
begin
// Show load/save progress
ProgressBar1.Visible := True;
ProgressBar1.Position := per;
Application.ProcessMessages(); // Important!
end;
procedure TForm1.ImageEnIO1FinishWork(Sender: TObject);
begin
// Hide the progress bar
ProgressBar1.Visible := False;
end;
See Also
◼TImageEnIO.OnProgress◼TImageEnView.OnFinishWork