Form47是我的报表窗体,如果预览后最小化该窗体,则怎么也找不到最小化的窗体了Form47 := TForm47.Create(Application);
try
Form47.QuickRep1.Preview;
finally
Form47.free;
end;请问这类问题如何解决?能不能动态修改让用户不能按下最小化键,或干脆隐藏最小化键,请给出代码?对报表预览窗体设Form的BorderIcon的biMinimize属性为false无效,why?
try
Form47.QuickRep1.Preview;
finally
Form47.free;
end;请问这类问题如何解决?能不能动态修改让用户不能按下最小化键,或干脆隐藏最小化键,请给出代码?对报表预览窗体设Form的BorderIcon的biMinimize属性为false无效,why?
解决方案 »
- 请问在DELPHI下怎样截取数据包,截取后怎么拆分数据包?
- 请教VCL的“构件讯息”的详细资料
- 在一个事件处理函数中,如何知道是哪个对象触发了这个事件?(新手)
- 誰能給我提供一下如何使用delphi調用windowsAPI的相關資料,100分謝謝.
- 接到一个POS项目,欢迎老鸟加入,有POS项目开发经验的最好
- 怎样使生成的应用程序不能同时打开两个?
- 关于类的申明!!!
- 关于TTextstream
- 好难!!!如何对TADOTable进行过滤?
- 各位仁兄:关于ReportBuilder5.55用户手册的中文资料
- 一个简单的问题,请帮忙
- 难道是Delphi6的Bug吗?还望遇到过这样问题的大哥多多指教!
try
QuickRep1.Preview;
ShowModal; // 这句该有吧?
finally
free;
end;
什么意思?
报表预览QuickRep1.Preview就行了!
if RepForm = nil then
begin
//RepForm:=TRepForm.create(application);
if RepForm = nil then
Application.CreateForm(TRepForm, RepForm);
RepForm.Hide;
RepForm.QRLabel3.Caption := '客户名称';
RepForm.QRLabel13.Caption := datetostr(lsjl.datecontrol.DateTime);
RepForm.SeekData;
RepForm.quickrep1.preview;
//RepForm.show;
end
else
begin
RepForm.QRLabel3.Caption := '客户名称';
RepForm.QRLabel13.Caption := datetostr(lsjl.datecontrol.DateTime);
RepForm.SeekData;
RepForm.quickrep1.preview;
RepForm.bringtofront;
end;