关于程序主窗体的制定

Question

再对应的主文件中：
Applcation.CreateForm(frmLogin1);
frmLogin1.Update;
if frmLogin1.DoLogin then ....
或者你可以在柱状体中创建frmLogin

Answer 1

To InsideDelphi(ID)　:  你说的DoLogin是什么方法,自己创建的吗.我初学者.请不吝赐教.我觉得这个问题是个很普遍的问题.

Answer 2

我一般是这样处理的：
在主窗口里定义Login函数，在Login里生成登录窗口并进行相关操作;
开始时Application.ShowMainForm:=False;
在主窗口的OnCreate里调用Login,如果返回成功则Application.ShowMainForm;=True; 

Answer 3

多谢,Barbarian(野蛮人)　,我在网吧,晚上回去试试.我还想问一下,如果主窗口不显示,我怎么关闭应用程序呢?(不要说Ctrl+F2)  ,它在任务栏上出现吗?

Answer 4

//在项目文件中，写如下代码。
//注意：项目将会没有主窗口，即在project的options中将没有main form。  Application.Initialize;
  F_Welcome:=TF_Welcome.Create(Application); {建立启动画面}
  F_Welcome.Show;                            {显示启动画面}
  F_Welcome.Update;
  F_Login := TF_Login.Create(Application);   {登陆窗口} 
  F_Welcome.Visible:=False;
  if not F_Login.Login then       //登陆失败，F_Login.Login是自己写的
                                  //登陆处理函数。           
  begin
    F_login.Free;
    F_Welcome.Free;
    Application.Terminate;
  end
  else
  begin
    Application.CreateForm(TF_main, F_main);  //主窗口
    F_login.Free;
    F_Welcome.Free;
  end;
  Application.Run;

Answer 5

这个问题确实初级。你可以在工程文件中创建两个登陆窗口。如果想不启动主窗口。可以在工程创建中exit;

Answer 6

我想你要的是这个：
在frmlogin中建一个函数，用于创建frmlogin
function Login:boolean;
var
  FrmLogin: TFrmLogin;
begin
  FrmLogin:= TFrmLogin.Create(Application);
  try
    dosomething;
  finally
    FrmLogin.Free;
  end;
end;
然后在MainForm的OnCreate事件中，调用FrmLogin.Login
关闭应用程序用application.Terminate。

Answer 7

我原来是在窗体的close事件中写application.terminate;不知道在工程中写exit; 我回去试试 多谢各位