怎样获得当前打印的状态,比如开始打印,打印结束(不针对某一控件) 怎样获得当前打印的状态,比如开始打印,打印结束(不针对某一控件),请教! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 uses Printers;procedure TForm1.Button1Click(Sender: TObject);var pp:TPrinter;begin pp:=TPrinter.Create ; if pp.Printing=true then label1.caption:='Printer printing...' else label1.caption:='Printing is over!';end;看看是不是你想要的! 服务器端接收来自多个客户端的文件,服务器要求用多线程 TIF转换成Bmp或者JPG格式,用最新的GraphicEx.v9.9不行,请求帮助? 熟悉adobe acrobat 7.0 sdk 得进,得到pdf文件得索引,不胜感激! 转贴水贴 第三方控件dbgrideh不能加载为什么? 大家来拿高分!!!!!!!!!! 请问我要怎样才能把DELPHI5做的程序升级到DELPHI7? InfoPower3000 tclientdataset 如何判断服务断已连接上数据库 TSRichViewEdit控件怎么获取编辑的内容 表格显示问题? 问几个控件属性的问题?请大家不要嫌分少呀!
procedure TForm1.Button1Click(Sender: TObject);
var
pp:TPrinter;
begin
pp:=TPrinter.Create ;
if pp.Printing=true then
label1.caption:='Printer printing...'
else
label1.caption:='Printing is over!';
end;
看看是不是你想要的!