代码如下：
Application.Initialize;
Application.CreateForm(TDataM, DataM);
Form_lander:= TForm_lander.Create(nil);
Form_lander.ShowModal;
登陆的窗口代码：
begin
Application.CreateForm(TForm_main,Form_main);
Application.Run;
Form_lander.Close;
end
我的这部分代码是登陆成功后执行的，，，，但是登陆窗口无法关闭

在主窗口的create事件中显示登录窗口不就行了

你这个有问题，一般不会把登录窗口做为系统的主窗口的，应该生成主窗口后再创建并显示登录窗口，主窗口可以先不显示，或者你把登录窗口隐藏掉