例如有一个progressbar,如何让它加速启动然后减速停止?

我想主要的程式段就一個延遲函數, 每跑一格progress丟入不同的延遲秒數, 要快一點延遲短一點, 反之就長一點, 其他的部份好好想一下, 不是太難
procedure Dealy(msec: intger);
begin
repeat
msec:= msec-1;
Application.ProcessMessage;
until msec=0
end;

一時手癢
procedure TForm1.Button1Click(Sender: TObject);
var
I,SP : Integer;
begin
ProgressBar1.Min := 0;
ProgressBar1.Max := 100;
ProgressBar1.Position := 0;
for I := ProgressBar1.Min to ProgressBar1.Max do
begin
ProgressBar1.Position := I;
SP := Round(Sqr(I - (ProgressBar1.Min ProgressBar1.Max) / 2) / 20) 20;
// SP := Round(ABS(I - (ProgressBar1.Min ProgressBar1.Max) / 2)) 10;
Sleep(SP);
Application.ProcessMessages;
end;
end;

Fishman

------
Fishman

補充一下, 不建議使用Sleep, 因為這會令系統控制權完全暫停, 如果你的程式中有同時其他執行緒在運作, 會造成視窗畫面有頓停的感覺