Формы: закрыть одну, открыть другую

[StarArt]

Вопрос вроде банальный, глупый, но перерыл всё (руки не кривые, гуглить умею). Скачал фак местный, посомтерл - подобного нет.
Пришёл в delphi с vb6, отсюда непонимание неокторых аспектов.

Пишу кассовую программу с базой на серве. Не могу разобраться с системой форм.
ТРЕБУЕТСЯ: при загрузке приложения у меня грузится только одна форма - форма1 скажем. На ней вводим пароль, если верно нужно перейти на следующую форму2, закрыв при этом первую. Далее по такой же системе - открывается окно выбора базы - выбираем базу, закрывем окно, открываем новое.
Сталкиваюсь с тем, что одна форма, "первая", главная, при её закрытие закрывается приложение. При её скрытии - убирается значёк с панели задач. Поместить все формы в онкреат тоже ясное дело не вариант, онкреты сработаю и будет трэш...

Банально, но не могу разобраться с системой форм. Помогите пожалуйста)

[MyLastHit]

примитивно: Делаешь форму простую. Ставишь ей alphablend=1, ставишь bsnone у ее стиля отображения, и делаешь главной Project->Options. В ее OnCreate ставишь:form2.show(form2-это твоя форма залогинивания)

PS: самому бы было интересно послушать умный вариант.

[vovk]

можно в модуле проекта такие формы создавать динамически, ну вернее форму то заранее можно подготовить, а тут толко использовать примерно так.

program new;
uses
  Forms,
  sysutils,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {dm: TDataModule},
  PassWord in 'PassWord.pas' {PasswordDlg};

{$R *.res}
var
frmpswrd:TPasswordDlg;
error_:string;
begin
  Application.Initialize;
     Application.CreateForm(Tdm, dm);
  frmpswrd:=TPasswordDlg.Create(nil);
      try
   frmpswrd.Server_Name.Text:= dm.Database_Main.DBName;
   frmpswrd.UName.Text:= dm.Database_Main.ConnectParams.UserName;
     repeat
     frmpswrd.ShowModal;
     if frmpswrd.ModalResult = 1 then
     begin
    dm.Database_Main.DBName := '192.168.1.100:baza';
    end;
     dm.Database_Main.ConnectParams.Password:=frmpswrd.Password.Text;
     dm.Database_Main.ConnectParams.UserName:=frmpswrd.UName.Text;
   try
     dm.Database_Main.Connected:=true;
   except 
begin
        dm.Database_Main.Connected:=False;
end;
   end;
     end;
     until (dm.Database_Main.Connected) or (frmpswrd.ModalResult <> 1);
     finally
     frmpswrd.Free;
     end;

      if dm.Database_Main.Connected then
     begin
  Application.CreateForm(TForm1, Form1);
  Application.Run;
     end else
     Begin
     dm.Free;
     Application.Terminate;
     End;

end.

[StarArt]

2 решения вижу, но имхо трудно. И это пример с тремя формами, а у меня в проекте сделанном на 25% их уже 14)
Всё таки чувство такое что есть нечто проще гораздо, ибо процедура вполне стандартная...

[vovk]

конечно можно, главная форма пусть и будет та с которой работаеш, при загрузке проверил что пароль ещё не ввели, создаёш форму ввода пароля и отображаеш её модально, пароль правильный форму запроса освобождаеш, проверяеш подключение,
неподключено, значит создаёш форму с выбором базы отображаеш модально, выбрал подключился, форму освобождаем и все там нужные действия делаем. Главная форма всегда висит. Ну както так (хотя если честно, то я бы форму выбора базы и ввода пароля как одну представляю и логин пароль это логин пароль в БД)

[_SERGEYX_]

при загрузке приложения у меня грузится только одна форма - форма1 скажем. На ней вводим пароль, если верно нужно перейти на следующую форму2, закрыв при этом первую. Далее по такой же системе - открывается окно выбора базы - выбираем базу, закрывем окно, открываем новое.

Зачем столько форм?!! Делается одна форма и вызывается при OnShow главной формы. Т.е. пока главная еще не видна. На ней юзер выбирает все данные, вводит пароли и т.п. Если всё введено правильно, то становится активной кнопка "Войти", иначе доступна только кнопка "Выход из программы". Я на ввод пароля вообще вешаю InputQuery. Чтоб формы не плодить.

[StarArt]

В этих решениях смущает вот что:
вы конкретизируете)
а по факту "главная" форма не одна. После ввода логина и пароля и входа выбиратся касса или склад, что по сути 2 совершенно разных окна с разными ф-циями) Поэтому наличие одной "главной" формы исключается в принципе...
Жду ещё предложений)

[ArtGrek]

я тут попробывал так

form2.Show;
form1.Free;

но не знаю как закрыть правелно последнюю

[Stilet]

Закрыть или скрыть?

form2.Show;
form1.Hide;

Но тут нужно учитывать какая из форм главная - могут быть косяки.

[ArtGrek]

могут быть косяки.

косяк в закрытии, но я восползовался кодом Air
для закрытия последнеи формы

uses Tlhelp32;
...
function KillTask(ExeFileName:string):integer;
const
PROCESS_TERMINATE=$0001;
var
Co:BOOL;
FS:THandle;
FP:TProcessEntry32;
begin
result:=0;
FS:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
FP.dwSize:=Sizeof(FP);
Co:=Process32First(FS,FP);
while integer(Co) <> 0 do
begin
if ((UpperCase(ExtractFileName(FP.szExeFile))=UpperCase(ExeFileName)) or
(UpperCase(FP.szExeFile)=UpperCase(ExeFileName))) then
Result:=Integer(TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),
FP.th32ProcessID),0));
Co:=Process32Next(FS,FP);
end;
CloseHandle(FS);
end;