用QuickRep1.Printer.PageCount来得到,赋值给一个显示控件就行了。tform1=class(TForm)
private
procedure TimerTimer(Sender: TObject);
...procedure TForm1.TimerTimer(Sender: TObject);
begin
doingsomething...
end;with TTimer.Create(self) do
begin
OnTimer:=TimerTimer;
Enabled:=True;
...
end;
private
procedure TimerTimer(Sender: TObject);
...procedure TForm1.TimerTimer(Sender: TObject);
begin
doingsomething...
end;with TTimer.Create(self) do
begin
OnTimer:=TimerTimer;
Enabled:=True;
...
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货