我在前面用了一个登陆窗口,后面的表单为MDI和childform,请问如何实现最前面的登陆窗口(50分)

S

skytears

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-22

• #1

我在前面用了一个登陆窗口,后面的表单为MDI和childform,请问如何实现最前面的登陆窗口

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-22

• #2

最简单的方法是修改dpr文件：
Application.Initialize;
with 你的登陆窗.create(nil) do
if showmodal=nnnn then
begin
free;
Application.CreateForm(xxxxx, xxxxxx)
// 原来dpr里生成的东西
Application.Run;
end
else free;

 

S

skytears

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-22

• #3

showmodal=nnnn是什么意思?能否详细说明?我用showmodal=mrOK 提示没有声明标识符

 

一

一生中最爱

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #4

可以在登陆窗口中确认按钮事件中设tag=1;
if showmodal=nnnn then改为你的登陆窗.showmodal；
if 你的登陆窗.tag=1 then

 

S

skytears

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #5

dpr文件内加入uses controls
才可以formLogin.modalresult=mrOk
formLogin.visable:=false;