Question

delphi 做登录窗口，要求主窗口在背后也显示出来？

我想做一个登录窗口，要求登录窗口在前面显示，主窗口在后面显示，
我现在只能做出登录窗口显示，主窗口在背后不显示，登录上之后，主窗口才显示？

procedure TForm1.FormShow(Sender: TObject);
begin
form2:=tform2.Create(nil);
form2.Showmodal;
end;

其中FORM1是主窗体，
FORM2是登录窗体。

Answer 1

你可以在formcreate里写 ，因为create函数调用时窗口还没有显示那，此时form2.showmadal只会显示form2，因为是模态显示，知道form2退出模态才会显示主窗口，所以你这段代码只要写在 formcreate中就行了，双击主窗口，就会自动创建，这个事件响应函数，把你的代码复制进去就行。。。。
另一个方法，你可以让登陆程序是一个单独的exe（多数比较大的程序都是这样，因为应用程序装载麻烦，如果你密码输不对程序就白打开了，所以是登陆器是单独的），单独的exe，登陆成功后，由登陆器主动打开应用程序，并发送约定的验证码，如果验证码不对（程序自动关闭），正确了，登陆程序关闭，还有一个好处就是你不必为你开发的所有程序都单独做一个登陆程序，这个可以通用。。。。

Answer 2

你在Form1的FormShow事件里 Form2.Showmodal 程序就一直等在Showmodal这里了，等到Form2接到的mrOK等值。
解决办法:在Form1里面用个定时器。Form1的Show时间里启动定时器。定时器事件里先关闭定时器，在Form2.ShowModal。