在 Ui 上显示进度 [关闭]

Question

我有一个简单的应用程序。一种形式和一种数据模块。 我在 DataModule 中有一些进程，想在 UI 中显示进度（使用进度条）。

最好的方法是什么？

Answer 1

最好的方法是在你的数据模块上定义一个事件，然后在你的表单中为事件实现一个处理程序并将它分配给数据模块事件。 然后，在您的流程中，您调用事件，从而调用事件处理程序。

类似这样的：

type
  TMyProgressEvent = procedure (Position, TotalSteps: Integer; Msg: string) of object

TMyDM = class
private
  FOnProgress: TMyProgressEvent;
....
....
public
  procedure UpdateCustomerOrders;
  property OnProgress: TMyProgressEvent read FOnProgress write FOnProgress;
end

TMyForm = class
....
....
  // you can change the position or progress bar here
  // or if you want to log 
  procedure MyFormProress(Position, TotalSteps: Integer; Msg: string);
end

您的 TMyDM.UpdateCustomerOrders 可能如下所示：

 procedure TMyDM.UpdateCustomerOrders()
 begin
   for I = 1 to 10 do 
   begin
     ... 
     ... you are processing something 
     ...
     //call event like this
     FOnProgress(I, 12, 'looping');
   end;
   .... another process here
   FOnProgress(11, 12, 'another process');

   .... one more process here
   FOnProgress(12, 12, 'process finished');
 end;