程序启动窗体出现的问题,导致系统主窗体最小化时不能到任务栏,只能到桌面左下角的问题,帮忙看一下代码!!--------
查了一整天,发现问题在这,但不知道怎么解决程序启动时是先启动登陆窗体,通过了再显示主窗体的
Forms,
frm_main in 'frm_main.pas' {frmmain},
frm_login in 'frm_login.pas' {frmlogin};{$R *.res}begin
Application.Initialize;
Application.Title := '管理系统';
Application.CreateForm(Tfrmlogin, frmlogin);
Application.CreateForm(Tfrmmain, frmmain);
Application.Run;
-----------------
如果通过:
frmmain.Show;
frmlogin.Hide;
frmlogin.Free;
(问题可能出在这)
------------------因为我去掉登陆窗体,直接启动程序的主窗体,就不会出现“最小化的时候,是最小化到桌面左下角,而不是任务栏”
查了一整天,发现问题在这,但不知道怎么解决程序启动时是先启动登陆窗体,通过了再显示主窗体的
Forms,
frm_main in 'frm_main.pas' {frmmain},
frm_login in 'frm_login.pas' {frmlogin};{$R *.res}begin
Application.Initialize;
Application.Title := '管理系统';
Application.CreateForm(Tfrmlogin, frmlogin);
Application.CreateForm(Tfrmmain, frmmain);
Application.Run;
-----------------
如果通过:
frmmain.Show;
frmlogin.Hide;
frmlogin.Free;
(问题可能出在这)
------------------因为我去掉登陆窗体,直接启动程序的主窗体,就不会出现“最小化的时候,是最小化到桌面左下角,而不是任务栏”
frmSplash.Show;
frmSplash.Update ;
while frmSplash.Timer1.Enabled do
Application.ProcessMessages ; Application.Title := '财务管理系统';
frmSplash.Hide ;
frmSplash.Free ;
Application.CreateForm(TfrmMain, frmMain);
frmLogin:= TfrmLogin.Create(Application);
frmLogin.ShowModal; frmMain.Hide ; Application.CreateForm(TfrmMain, frmMain);
Application.Run;
Application.CreateForm(TfrmMain, frmMain);
frmLogin:= TfrmLogin.Create(Application);
frmLogin.ShowModal; frmMain.Hide ; Application.CreateForm(TfrmMain, frmMain);
Application.Run;
注意Main在project/option的左边,loginform在右边(不是自动创建)
运行到
frmMain.Hide ;
就报错啊
frmLogin:= TfrmLogin.Create(Application);
frmLogin.ShowModal; frmMain.Hide ; Application.CreateForm(TfrmMain, frmMain);
Application.Run;
------------
你这样写了
那我在登陆窗体的确定按钮中该怎么写?
如果还是原来的
frmmain.Show;
frmlogin.Hide;
frmlogin.Free;就会报错
知道了
登陆窗体的确定按钮写这样就行了
Application.Run;