لديا هذا الكود هنا :
.....
Image1.Picture.LoadFromFile(FileName);
....
procedure TForm1.Image1Progress(Sender: TObject; Stage: TProgressStage;
PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string);
begin
case Stage of
psStarting: ProgressBar1.Position := 0;
psRunning:
begin
ProgressBar1.Position := PercentDone;
end;
psEnding:
begin
ProgressBar1.Position := PercentDone;
Timer1.Enabled := True; // Interval := 500;
end;
end
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
ProgressBar1.Position := 0;
end;
صورة عن المثال:

ولتحميل المثال حتى يتسنى للأخوة الكرام التجريب و محاولة إيجاد الحل و شكرا ... من هنا
من فضلكم أريد تفعيل الحدث "Image1Progress" في الوقت الذي تبدأ فيه "Image1" بتحميل الصورة المحملة من الخارج بواسطة "TOpenPictureDialog" حتى إظهار الصورة بصفة كاملة على مستوى "Image1.Picure" مع العلم أن حجم الصورة المراد إظهارها قد يتجاوز 10 ميقا بايت .. و شكرا.