解决方案 »
- 有关 api 函数 FindFirstChangeNotification 怎么样应用 ?
- 买过房子的朋友,进来给我出出注意.
- 受不了了!谁可以解决此问题,50送上,绝不失言!!
- 如何用FileListBox知道文件详细信息?
- 我的问题是:你们好啊!如何我把listbox中的每条记录 在我创建的sql数据库中查找到 并输出sql中的和这条记录相关的其他字段到另一个listb
- 各位高手给我翻译一下DELPHI的一段代码用C++BULIDER表示
- 请问高手:BOLB has been Modifiedm,这样的错误原因是什么,如何处理
- 寻找每个记录带一个checkbox的DBGrid构件?
- delphi xe5 APK 问题
- 关于imageenmview 对TIF文件压缩、保存的问题
- 如何知道获得鼠标焦点的对象类型?
- 请教模拟按键
rocedure Tform.QuickRep1Preview(Sender: TObject);
var
Form:Tform;
begin
form:=tform.Create(application);
form.table:='m_dajy';
form.QRPreview1.QRPrinter:=tqrprinter(sender);
form.show;
end;
TPreviewForm = class(TForm)
private
{ Private declarations }
public
MainQRPreview: TQRPreview; //在这里定义!!!!!!!!!
{ Public declarations }
end;//现实。
procedure TForm1.QuickRep1Preview(Sender: TObject);
begin Form.MainQRPreview:=TQRPreview.create(PreviewForm);
PreviewForm.MainQRPreview.Parent :=PreviewForm;
PreviewForm.MainQRPreview.Align:=alClient;
PreviewForm.MainQRPreview.QRPrinter := TQRPrinter(Sender);
PreviewForm.Show;
end;
这是干什么用的??
你把它这样定义TPreviewForm = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
PreviewForm :TPreviewForm;
MainQRPreview: TQRPreview; //在这里定义!!!!!!!!!
DrawTitle(Panel.Canvas,pw,ph,tm,lm,rm,bm);
这个地方的Panel还是我在Preview过程中声明的Panel,却不是我在设计期放在Form上的Panel,而这个地方的Panel没有初始化,所以编译器会报错改过之后我的代码是这样的procedure TxfDBGridPrinter.Preview;
var
pw,ph:integer;
tm,lm,rm,bm:integer;
begin
pw:=Round(PageWidth*DefaultRatio);
ph:=Round(PageHeight*DefaultRatio);
with MarginOption do
begin
tm:=Round(TopMargin*DefaultRatio);
lm:=Round(LeftMargin*DefaultRatio);
rm:=Round(RightMargin*DefaultRatio);
bm:=Round(BottomMargin*DefaultRatio);
end; PreviewForm:=TPreviewForm.Create(Application); PreviewForm.Show;
PreviewForm.Panel.SetBounds(200,84,pw,ph);
DrawTitle(Panel.Canvas,pw,ph,tm,lm,rm,bm);
//DrawHeader(Panel.Canvas,pw,ph,tm,lm,rm,bm);
end;这时候编译器报错Undeclared identifier:'Panel'说我的Panel未定义???是不是在控件中不能调用动态创建成的窗体上的控件????