... نصب ProgressBar روی StatusBar در دلفی StatusBar می باشد ... برای این کار کافی است بر روی فرم خود یک StatusBar اضافه نمایید حالا در قسمت تعاریف متغیر های عمومی کد زیر را بنویسید: ProgressBar1: TprogressBar;در ادامه دستورات زیر را در خاصیت OnCreate فرم خود بنویسید: varProgressBarStyle: Longint;begin{create a run progress bar in the Status Bar}ProgressBar1 := TProgressBar ... Create(StatusBar1);ProgressBar1 ... Parent := StatusBar1;{remove progress bar border}ProgressBarStyle := GetWindowLong(ProgressBar1 ... Handle, GWL_EXSTYLE);ProgressBarStyle := ProgressBarStyle - ws_EX_STATICEDGE;SetWindowLong(ProgressBar1 ... Handle, GWL_EXSTYLE, ProgressBarStyle);{set progress bar position and size - put in Panel[2]}ProgressBar1 ... Width + 4;ProgressBar1 ... Top := 4;ProgressBar1 ... Height - 6;ProgressBar1 ... Width - 6;{set range and initial state}ProgressBar1 ... Min := 0;ProgressBar1 ... Max := 100;ProgressBar1 ... Step := 1;ProgressBar1 ...  

منبع : شبکه فن آوری اطلاعات ایران    تاریخ : 30   بهمن   1384   شاخه : برنامه نویسی   

... نمایش میزان کپی شدن فایل با ProgressBar در دلفی چطور میتوان زمان کپی شدن فایل را با استفاده از ProgressBar نمایش داد؟برای انجام این کار ابتدا بر روی یک فرم یک ProgressBar اضافه کنید سپس تابع زیر را تایپ کنید: Procedure TForm1 ... 4096] of char; NumRead: integer; FileLength: longint; begin AssignFile(FromF, source); reset(FromF); AssignFile(ToF, DESTINATION); rewrite(ToF); FileLength := FileSize(FromF); with ProgressBar1 do begin Min := 0; Max := FileLength; while FileLength > 0 do begin BlockRead(FromF, Buffer[0], SizeOf(Buffer), NumRead); FileLength := FileLength - NumRead; BlockWrite(ToF, Buffer[0], NumRead); Position := Position + NumRead; end; CloseFile(FromF); CloseFile(ToF); end; end; ...  

منبع : شبکه فن آوری اطلاعات ایران    تاریخ : 17   بهمن   1384   شاخه : برنامه نویسی