MDI窗体打开一个普通的登录窗体时出错，谢谢~~

[epowerlab]

工程文件.

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Main in 'Main.pas' {frmMain},
Sys_Gobal in 'Sys_Gobal.pas',
DateMoudle in 'DateMoudle.pas' {DM: TDataModule},
LoginForm in 'LoginForm.pas' {frmLogin};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TfrmMain, frmMain);
Application.Run;
end.

Main.pas 为fsMDIForm

uses Sys_Gobal, DateMoudle, LoginForm;

//显示登录窗口
procedure TfrmMain.FormPaint(Sender: TObject);
begin

if frmLogin = nil then
frmLogin:=TfrmLogin.create(self);
frmLogin.ShowModal ;

end;


------------------------------------
LoginForm.pas 为fsNormal

procedure TfrmLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// 关闭
Action := caFree;

end;

运行出错，错误提示如下：

Project Project1.exe raised exception class EInvalidOpertion with message 'Cannot make a visible window modal'. process stoppen. Use Step or Run to continue

[Dlwxn]

frmLogin窗体的visible属性改为False

[epowerlab]

把frmLogin.ShowModal换成Show后

打开时正常，可是关闭frmLogin的时候出现如下问题
Project Project1.exe raised exception class EAccessViolation with 'Access violation at address 00000000.Read of address 00000000'. Process stopped. Use Step or Run to continue.

[epowerlab]

to : Dlwxn(Dlwxn)
你的方法还真管用的

再问个，我要把frmLogin里的button点击后经过判断，先关闭这个frmLogin然后frmMain得到焦点~~

[Dlwxn]

没有看明白。

[epowerlab]

简单地就是show出来的frmLogin窗体，当我填完账号密码后确认正确的就关闭这个窗体
并且使主窗体得到焦点。。。

[menggirl]

MDI打开是不可以用SHOWMODAOL的，要用SHOW

关闭是
在ONCLOSE
里写：
ACTION：=FREE：

[hunterht]

//frmLogin窗体的visible属性改为False


if (frmLogin.ShowModal = mrOK) then
frmMain.Show
else
Application.Terminate;


//在frmLogin的确定按钮中，如果用户名和密码正确，则
Self.ModalResult := mrOK;

[dyf2001]

窗体的Visible的属性默认为False，如果你该为True以后就不能showModal了。

另外你的登陆窗体应该在项目文件中用而不是主窗体中。

frmLogin:=TfrmLogin.create(self);
try
if frmLogin.ShowModal = mrOk then
....
else
...
finally
frmLogin.free;
end;

[gaozhu2003]

關閉窗體時應frmlogin:=nil

[cnsolonet]

//显示登录窗口
procedure TfrmMain.FormPaint(Sender: TObject);
begin

if frmLogin = nil then
frmLogin:=TfrmLogin.create(self);
frmLogin.ShowModal ;-------------------改为 frmlogin.show;

end;

[101monster]

呵呵，UP！

[epowerlab]

to : cnsolonet(鹰)
按你说的可以打开的，但是在关闭frmLogin的时候出现
打开时正常，可是关闭frmLogin的时候出现如下问题
Project Project1.exe raised exception class EAccessViolation with 'Access violation at address 00000000.Read of address 00000000'. Process stopped. Use Step or Run to continue.

procedure TfrmLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// 关闭
Action := caFree;

end;

谢谢各位了..

[epowerlab]

frmlogin:=nil 修改成这个可以了
可是与 Action := caFree; 有什么区别呢？

[lzx130]

学吸啊