发信人: wiseyao(wise)
整理人: soaringbird(2002-10-16 17:21:01), 站内信件
|
【 在 do_easy 的大作中提到：】
:我经常会遇到打开一个很大数据量的表.
:要等侍几秒,我想用进度条表示找开过程,如果做?
:......
在OnFetchProgress事件中处理，下面是帮助系统中的例子：
procedure TForm1.ADODataSet1FetchProgress(DataSet: TCustomADODataSet; Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
Caption := 'Percent complete: ' +
IntToStr(Trunc(Progress / MaxProgress * 100)) + '%';
Application.ProcessMessages;
end;
----
世上无难事，只怕有心人。 |
|