Form.Close

[misher]

procedure TForm1.N1Click(Sender: TObject);
begin
if Form2.ShowModal = Form2.ShowModal then
Form1.Close;

end;

Почему первая форма не закрывается?

[artemavd]

Потому что код закрытия не там немного. А если так?:

procedure TForm1.N1Click(Sender: TObject);
begin
 if Form2.ShowModal = Form2.ShowModal then
 begin
  Form1.Close;
 end;
end;

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

procedure TForm1.N1Click(Sender: TObject);
begin
 Form2.ShowModal;
 Form1.Close;
end;

или можно просто

Form2.Show;

[GunSmoker]

А что вы хотите сделать этой строчкой?

Form2.ShowModal = Form2.ShowModal

[misher]

откроеться 1 форма а 2 закроеться...ну я на это планировал

[GunSmoker]

Этой строчкой вы два раза вызываете Form2. У вас в условии слева стоит ShowModal для Form2 и справа стоит ShowModal для Form2. Чтобы вычислить условие (истинно оно или ложно) компилятору нужно вызвать два раза ShowModal. Что приведёт к двум показам Form2 подряд.

При этом, если вы закроете Form2 крестиком, а второй раз - как-то иначе, то у вас ничего не произойдёт.

Если же вы закроете Form2 крестиком, а потом (когда она появится второй раз) - снова крестиком, то у вас пропадёт форма Form1.

[misher]

Потому что код закрытия не там немного. А если так?:
Код:

procedure TForm1.N1Click(Sender: TObject);
begin
if Form2.ShowModal = Form2.ShowModal then
begin
Form1.Close;
end;
end;
а вообще, мне кажется, что правильным было бы без всяких условий. Вот так:
Код:

procedure TForm1.N1Click(Sender: TObject);
begin
Form2.ShowModal;
Form1.Close;
end;

Пробовал по 2 методу не закрывалась 1 форма, оказалось что и так по условию она не закрывается, в чем тут может быть дело?

Этой строчкой вы два раза вызываете Form2. У вас в условии слева стоит ShowModal для Form2 и справа стоит ShowModal для Form2. Чтобы вычислить условие (истинно оно или ложно) компилятору нужно вызвать два раза ShowModal. Что приведёт к двум показам Form2 подряд.

К сожалению как я не пробовал написать(if Form2.ShowModal then и if OpenForm2.ShowModal then) и так много раз нечего не палучалось я такое пример нашёл в хелпе...Может подкинеш правильный код(нечего что на ты?)...

[mutabor]

if Form2.ShowModal then

ShowModal возвращает вовсе не boolean. Это для информации.

Теперь по сути вопроса, если ты закроешь главную форму, то у тебя все приложение закроется, нельзя этого делать. Или прячь ее - Hide, или меняй видимость - Visible.
Пример:

Form1.Hide;
Form2.Show;

[misher]

Спасибо!!!