Закрытие формы

[girz]

Имеется две формы после перехода с первой на вторую нужно чтобы первая форма закрылась. Переход на вторую форму осуществляется командой Form2.Show.

[VadEr]

После Form2.Show; надо написать Form1.Close;

[girz]

Сообщение от VadEr

После Form2.Show; надо написать Form1.Close;

Уже использовали такой код но закрываются обе формы.

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
Form1.Close;
end;
end.

[VadEr]

Тогда не Form1.Close;, а Form1.Free;

[girz]

При использований Form1.Free
При закрытие второго окна, само приложение не закрывается.(остоется процесс)
Имеется Form1 с авторизацией пользователей.
После авторизаций переходит на Form2, и дальше работа ведется именно в этой форме и выходят из нее.
Кто может еще что посоветовать?

[maLoy*508]

можно просто прятать ее.... правда перед выходом надо будет закрывать...
то есть
Form1.Hide; - формы не видно потом на второй форме кнопку выхода и там закрыть две формы...
form2.close;
form1.close;
_____________________
а можно воспользоваться следующим способом...
на процедуру активации первой формы повесить вывод второй то есть:

 
procedure TForm1.FormActivate(Sender: TObject);
begin
form2.ShowModal;
end;

[koma_grusha]

При использований Form1.Free
При закрытие второго окна, само приложение не закрывается.(остоется процесс)
Имеется Form1 с авторизацией пользователей.
После авторизаций переходит на Form2, и дальше работа ведется именно в этой форме и выходят из нее.
Кто может еще что посоветовать?

если у тебя вся работа ведется в форме2, то сделай ее главной, тогда при ее закрытии процесс висеть не будет. А авторизацию можешь сделать 2мя способами (на выбор):

1) на form2.show или form2.create сделать вызов form1, примерно так

try
    form1 := Tform1.Create(nil);
    if form1.ShowModal <> mrOk then
        form2.Close; //или TerminateProcess(GetCurrentProcess, 0) или Application.Terminate
finally
    form1.Free;
end;

а на form1 - собственно сама авторизация

2)в самом проекте вызвать сначала form1 и после удачной авторизации вызвать form2, иначе выход



имхо: а прятать формы и т.п конечно можно, но нехорошо мусорить, ведь форма авторизации нужна только для входа, а не для основной работы.

[qpokyc]

Заменить

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin

  Application.Initialize;
  Application.CreateForm(TForm1, Form2);
  Application.CreateForm(TForm2, Form2);
  Application.Run;

end.

на

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

function CheckValid: Boolean;
begin
  Form1 := TForm1.Create(nil);
  Form1.ShowModal;
  //
  // Результат можно вывести двумя способами:
  // 1) сравнить результат ShowModal
  // c константой
  // 2) через свойства TForm1 и его потомков.
  //
  Form1.Free;
end;

begin

  if NOT CheckValid
    then Application.Terminate;

  Application.Initialize;
  Application.CreateForm(TForm2, Form2);
  Application.Run;

end.

PS: Объектная модель делфи далека от совершенства.