我想在下载时加一个进度条,怎么加?(200)

我想加一个进度条,怎么加?procedure Tformxjbzzlxx.SpeedButton1Click(Sender: TObject);begin adoquery1.Close; adoquery1.Sql.Clear; adoquery1.sql.Add('select pdf文件 from 资料信息 where id='+EditCodeid.Text); adoquery1.Open; if adoquery1.recordcount=0 then begin //6 showmessage('没有记录，不能查看'); exit; end; //6 if ADOQuery1.FieldByName('pdf文件').IsNull then begin showmessage('没有文件，不能查看'); exit; end; TBlobField(ADOQuery1.FieldByName('pdf文件')).SaveToFile(ExtractFilePath(Application.ExeName)+'/ini/lintemp.pdf');//下载文件,这时最慢,想加进度条. end;

这个不好加的,建议用try show查询图标; TBlobField(ADOQuery1.FieldByName('pdf文件')).SaveToFile(ExtractFilePath(Application.ExeName)+'/ini/lintemp.pdf')finally free查询图标;end

可以自己画进度条

瑕佸姞杩涘害鏉★紝瑕佹湁max鍜宲osition淇℃伅锛屼粠浣犵殑绋嬪簭鎴戣?寰楄幏寰楄繖涓や釜姣旇緝闅捐幏寰楋紝涓嶅?鐩存帴鏄剧ず涓