求助(50分)

H

hmcheery

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #1

我在写一小程式，有两个窗体其中一个为登陆窗体还有一个主窗体， 我在PROGRAM中写了代码
如
login:=tlogin.creat(application);
application.createfrom(tmainform,mainform);
login.showmodal;
if login.modalresult=1 then
application
else
login.free
但是在关闭主窗体时会出错，请问我该怎么办？

 

S

smallsun007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #2

gz

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #3

var
x:integer;
login:=tlogin.creat(application);
application.createfrom(tmainform,mainform);
login.showmodal;
x:=login.modalresult;
///////////////
login.free
if x=1 then
begin
application............
end;

 

H

hmcheery

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #4

不对呀

 

A

accp_ccc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #5

try
.....
创建窗体.
except
....
释放窗体
end;

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #6

如果排除上面的代码的错字，应该是没什么问题。
设断点查看你执行了什么操作。