يحتوي TActionList في دلفي على إجراء قياسي TDownLoadURL، والذي يستخدم URLDownloadToFile داخليًا عندما يقوم بتنزيل ملف، فإنه سيقوم بإنشاء حدث OnDownloadProgress بانتظام، بحيث يمكن عرضه مع شريط التقدم.
توضح هذه المقالة كيفية استخدام دلفي لـ TActionList لتنزيل الملفات، ويكون رمز التنفيذ كما يلي:
يستخدم Windows، الرسائل، SysUtils، Variants، Classes، Graphics، Controls، Forms، Dialogs، ExtActns، ActnList، StdCtrls، ComCtrls؛ type TForm1 = class(TForm) Button1: TButton; TActionList; : TObject)؛ الإجراء الخاص {الإعلانات الخاصة}. URL_OnDownloadProgress (المرسل: TDownLoadURL; Progress, ProgressMax: Cardinal; StatusCode: TURLDownloadStatus; StatusText: String; var Cancel: Boolean) ; public { public notifications } end; var Form1: TForm1; الإجراء Tform1.URL_OnDownloadProgress ;begin ProgressBar1.Max:= ProgressMax; التقدم؛ نهاية؛ الإجراء TForm1.Button1Click(Sender: TObject);البدء بـ TDownloadURL.Create(self) حاول URL:='//www.VeVB.COm/images/logo.gif'; '; OnDownloadProgress := URL_OnDownloadProgress; ProgressBar1.Max := 0;end;