G
gxsmallboy
Unregistered / Unconfirmed
GUEST, unregistred user!
为什么程序在运行时建立一个窗体，有的窗体会出一个对话框提示：Access violation at address in madule '程序名.EXE' (100分)<br />为什么程序在运行时建立一个窗体，有的窗体会出一个对话框提示：
Access violation at address in madule '程序名.EXE'
read of address FFFFFFFF.
确定后才打开国窗体?
**********************************************************
procedure TForm_main.menuClick(Sender: TObject);
var founded:boolean;
I:integer;
begin
Founded:=False;
for i:=MDIChildCount-1 downto 0 do
if MDIChildren.ClassName='TForm_llq_Fcckdj' then
begin
//MDIChildren.show ;
Founded:=True;
break;
end;
if Not Founded then
begin
Form_llq_Fcckdj:=TForm_llq_Fcckdj.Create(application); //程序运行到这名时，就出现我以上听的提示对话框。
end;
Form_llq_Fcckdj.show;
if Form_llq_Fcckdj.WindowState =wsMinimized then
Form_llq_Fcckdj.WindowState :=wsNormal;
end;
Access violation at address in madule '程序名.EXE'
read of address FFFFFFFF.
确定后才打开国窗体?
**********************************************************
procedure TForm_main.menuClick(Sender: TObject);
var founded:boolean;
I:integer;
begin
Founded:=False;
for i:=MDIChildCount-1 downto 0 do
if MDIChildren.ClassName='TForm_llq_Fcckdj' then
begin
//MDIChildren.show ;
Founded:=True;
break;
end;
if Not Founded then
begin
Form_llq_Fcckdj:=TForm_llq_Fcckdj.Create(application); //程序运行到这名时，就出现我以上听的提示对话框。
end;
Form_llq_Fcckdj.show;
if Form_llq_Fcckdj.WindowState =wsMinimized then
Form_llq_Fcckdj.WindowState :=wsNormal;
end;
][8D][
][
!][?]