怎样在登陆成功后关掉该登陆窗口，而进入主窗体？

Question

。
form_login.HIDE;
form_main.show;
。这样只能隐藏登陆窗体，怎样自动关闭呢？
谢谢

Answer 1

program PaySlip;uses
  Forms,
  controls,
  SysUtils,
  windows,
  Main in 'form\Main.pas' {MainForm},
  logo in 'form\logo.pas' {LogoForm},
  globalfunc in 'form\globalfunc.pas',
  Date in 'form\Date.pas' {DateForm},
  About in 'form\About.pas' {AboutForm};var
  i: integer;
{$R *.res}begin
  CreateMutex(nil, True, 'MyApp');
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    MessageBox(0, '程序已经在运行', '我的程序', MB_ICONERROR);
  end else
  begin
    logoform:= Tlogoform.Create(application);
    logoform.Show;
    logoform.Cursor := CrHourGlass;
    logoform.Update;
    Application.Initialize;
    Application.CreateForm(TMainForm, MainForm);
    Application.CreateForm(TDateForm, DateForm);
    for i:=0 to 30 do
    begin
      sleep(100);
      logoform.suiProgressBar1.Position := i;
    end;
    globalfunc.initall;
    logoform.Destroy;
    Application.Run;
  end;
end.我把我的贴出来，自己研究吧

Answer 2

uses
  windows,
  ...;var
  UserID:Integer;...
with TLoginForm.Create(Application) do
try
  if ShowModal = mrOK then
    Application.CreateForm(TMainForm,MainForm);
  else
    Application.Terminate;
finally
  Free;
end;

Answer 3

logoform:= Tlogoform.Create(application);
logoform.Show;......logoform.Destroy;主要是这几句

Answer 4

sorry,我好象理解错你的意思了，你好象要的是登陆窗口，哈哈，我的只是为了漂亮加上去玩玩的：）

Answer 5

就close就可以了，你的登陆窗口是不是在program里设置成为主窗体了？是的话关闭登陆窗体整个工程会关闭的

Answer 6

huangy0153(遥遥)朋友，
是我，我正是这样做的，那怎样解决这个问题呢？

Answer 7

form_login.close;或者
freeAndNil(form_login);

Answer 8

form_login.close;
form_main.show;

Answer 9

好多好多！！ 我就不贴代码了！！ 登陆有的时候可以写在主窗口的FormCreate事件里
然后就在登陆成功后写LoginForm.Close;就应该可以了

Answer 10

就在program的pas中的application创建主窗口前增加你的登陆窗口代码，然后free了即可。