出错内容如下---------------------------
Project1
---------------------------
Access violation at address 0045C7F0 in module 'Project1.exe'. Read of address 00000048.
---------------------------
确定
------------------------
下面是代码procedure TForm1.V1Click(Sender: TObject);
begin
if logingroup='A' then
begin
if form7=nil then begin
form7:=tform7.create(application);
form7.Left:=0;
form7.Top:=0;
form7.Width:=screen.Width-5;
//form7.height:=screen.Height-95;
form7.height:=screen.Height-(95+42);
end;
form7.show;
end
else
begin
if serCase1=nil then begin
serCase1:=tserCase1.create(application);
serCase1.Left:=0;
serCase1.Top:=0;
serCase1.Width:=screen.Width-5;
serCase1.height:=screen.Height-(95+42);
end;
serCase1.show;
end;现在有个问题想问一下,
为什么form7和serCase1都是fsMDIChild窗体,可是显示form7的代码没错,而显示serCase1的代码出现以上错误呢?谢谢
Project1
---------------------------
Access violation at address 0045C7F0 in module 'Project1.exe'. Read of address 00000048.
---------------------------
确定
------------------------
下面是代码procedure TForm1.V1Click(Sender: TObject);
begin
if logingroup='A' then
begin
if form7=nil then begin
form7:=tform7.create(application);
form7.Left:=0;
form7.Top:=0;
form7.Width:=screen.Width-5;
//form7.height:=screen.Height-95;
form7.height:=screen.Height-(95+42);
end;
form7.show;
end
else
begin
if serCase1=nil then begin
serCase1:=tserCase1.create(application);
serCase1.Left:=0;
serCase1.Top:=0;
serCase1.Width:=screen.Width-5;
serCase1.height:=screen.Height-(95+42);
end;
serCase1.show;
end;现在有个问题想问一下,
为什么form7和serCase1都是fsMDIChild窗体,可是显示form7的代码没错,而显示serCase1的代码出现以上错误呢?谢谢
解决方案 »
- 求 Crystal report XI VCL for delphi7
- SQL语句问题???
- 急求!! cxGrid中设置了GridMode=True,怎样再可以使用多选,遍历全部或者部分超出表格显示范围的数据???分数不够可另外加贴送分!!
- postren(小虫) 进来看看
- 一个关于listbox的问题
- 在fastreport中设置字体属性时出现提示"system error,code 1722,RPC服务器不可用"怎么解决??
- 一个简单但让人困惑的问题!
- 不知道哪时能弄到DHCP服务的控件??
- 如何改变窗体标题栏默认颜色?
- 一个关于RichEdit不是问题的问题
- 关于文本文件的几个问题?
- 请问如何修改delphi6编辑代码的字体?
原来我在onCreate里面加了
serCase1.left:=0;
serCase1.top:=0;将这两句删掉了就可以了.
谢谢各位.