Código Delphi
[-]
Form1 = Class(Form)
Procedure Image1Progress(Sender: TObject; Stage: TProgressStage; PercentDone: Byte;
RedrawNow: Boolean; const R: TRect;const Msg: String);
Procedure OnCreate(Sender:TObject);
end;
Implementation
procedure TForm1.Image1Progress(Sender: TObject; Stage: TProgressStage;
PercentDone: Byte; RedrawNow: Boolean; const R: TRect;
const Msg: String);
begin
miProgressbar.Position := PercentDone;
form1.update;
end;
Procedure Form1.OnCreate(Sender:Tobject);
Begin
jvDBImage1.Picture.OnProgress := Image1Progress;
end;
En el primer procedimiento le decimos a la computadora que actualize el progressbar con el valor del progreso de carga que lleva la imagen.
en el segundo procedimiento "OnCreate" le decimos a la computadora que en el método OnProgress del objeto Picture ejecute el procedimiento "Image1Progress"
Ese es un resumen del código, pero esa es la ídea. No estoy seguro si funcionará pero la lógica me dice que sí.
Creo que tendras que agregar algunas exceptiones por si acaso algo falla. Fallaría si el control jvDBimage destruye el
objeto Picture cada vez que cambia de imagen o cuando no exista una imagen.