Delphi Tips
0150 D1 D2 D3 D4 D5 D6 D7 3.1 95 98 作成: 1999/02/11 osamu rev 1.2 B1 B3 B4 B5 B6 B7 NT3 NT4 2K XP 更新: 2006/10/02 223 編集
DataSet を指定していないときに QuickReport の進捗状況を表示する
> 今回作ったレポートだと TQuickRep.DataSet:=nil で、 OnNeedDataイベ
> ントですべてのデータを供給しているので、プログレスフォームに進捗
> を表示してくれません。
> 実行時には出力すべきレコード数と現在出力中のレコード番号は分かっ
> ています。こういうときに、うまくプログレスフォームで進捗を表示し
> てあげる方法は用意されていないのでしょうか?
QuickRep.QRPrinter.Progress プロパティに 0..100 の範囲の値を指定すると良さそうです。
procedure QuickRep1.DetailBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
QrPrinter.Progress:=Trunc((100/MaxBandCount)*BandCount);
end;
MaxBandCount: 最大レコード数
BandCount: 現在のレコード
参照: [Delphi-ML:25304] <印刷>
[新規作成] [最新の情報に更新]
How To
Lounge
KeyWords
Osamu Takeuchi osamu@big.or.jp
Tips
Delphi
Home