請問各位。 因為時常會有一些批次作業或者按鈕內的處理， 時間上花費滿多時間，使用者作操作時，有時候 不知道程式目前正在運算，就直接點選其他處理， 或者以為當掉，所以，有什麼方法可以告知使用者。 謝謝。

t0288542您好： 有关ProgressBar的使用，站内有很多相关的介绍，查找下会有很多惊喜发现 > <> ============================ 为什么经过多年以后，得失的过程如此冷漠 ============================ 發表人 -

deity您好. 謝謝您所提供的網址。 因為Button內的處理，每次執行多達快５分鐘。 裡面有滿多的新增，修改的動作。 我有試著使用您提供資料，可是我還是不太會用， 只要出現執行的可以，是否有比較簡單表現方法呢。 另外，可否請版主大大幫我將此篇文章搬至 VCL 元件使用或設計討論區(Delphi) 因在繁忙中，所以貼錯地方。 不好意思。 麻煩大家。

您好，一定要用ProgressBar這個控件嗎?    可以在開始作業的時候: Form1.Enabled := False ; StaticText1.Caption := '正在處理中,請稍後...' ; ... Form1.Enabled := True ; (不好意思，我是新手，湊熱鬧來的..呵呵)    

zxy666666您好。 其實也不一定要使用ProgressBar或Gauge的物件。 我有試著使用Gauge在我所要處理的按鈕． 因為按鈕有包含一些查詢／新增／更改資料批次作業。 FBcsbar.Show; for h:=0 to 100 do begin FBcsbar.Gauge1.Progress := h 1; Sleep(10); //處理動作。卻是不是我所要的結果。 end; FBcsbar.Close; 另外，請問zxy666666您所建議的 StaticText1是在那裡的呢。 麻煩您。 謝謝。

hi,t0288542,您好!   StaticText元件在Additional頁上,作為顯示提示用.    既然知道大概知道需要花費的時候，也許可以在你的FBcsbar畫面上放一個Timer來更新ProgressBar或Gauge的進度,作業開始時設為True,完成時將Timer.Enabled :=False;並將ProgessBar.Postion:=100,如:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ProgressBar1.Position :=ProgressBar1.Position   5 ;
//  Gauge1.Progress := Gauge1.Progress   5 ;
end;      fmLoading := TfmLoading.create(Self);
  fmLoading.Show;
  fmLoading.Update ;  
  ....
  fmLoading.Hide;
  fmLoading.Update ;
  fmLoading.Free ;

t0288542 您好： 1、如资料批次修改时间过长，让使用者觉得以为是当机了，可加上：Application.ProcessMessages;即可参考实例： http://delphi.ktop.com.tw/topic.php?topic_id=45720 http://delphi.ktop.com.tw/topic.php?topic_id=54496 2、觉得您应该自己去实践一番，才能有心得，根据上面所给链接，解决问题应该不难，还请善用站内资源。自己先写写，遇到问题才问，让其他大大也好帮您。       ============================ 为什么经过多年以后，得失的过程如此冷漠 ============================

謝謝你們兩位幫忙， 我的問題目前已解決. 因為太忙都一直沒回。 麻煩。