MessageDlg

[_Алексей_]

Подскажите пожалуйста хочу сделать так что что бы когда вылезало окно
MessageDlg оно закрывало только 3 форму а не всю программу при нажатии на кнопку ок

if MessageDlg('Вы хотите выйти?',
  mtCustom, [mbOk, mbCancel],0)=mrOk
  then Form3.close;

[evg_m]

сделать form3 неглавной формой.
в списке форм автосоздания она НЕ должна стоять первой!

[_Алексей_]

Она и так не главная)

[_Алексей_]

Вот этот архив

[evg_m]

оно закрывало только 3 форму а не всю программу

application.terminate; //Закрытие приложения.

что хотели то и получили!

[Vad33]

Сообщение от _Алексей_

Подскажите пожалуйста хочу сделать так что что бы когда вылезало окно
MessageDlg оно закрывало только 3 форму а не всю программу при нажатии на кнопку ок

if MessageDlg('Вы хотите выйти?',
  mtCustom, [mbOk, mbCancel],0)=mrOk
  then Form3.close;

Там везде стоит

application.terminate; //Закрытие приложения.

[evg_m]

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

Там везде стоит
application.terminate; //Закрытие приложения.

А потом спрашиваете, что надо сделать, чтобы не закрывать.
Очевидный ответ: НЕ ПИСАТЬ ТОГО, чего НЕ ХОТИТЕ делать!
пишите именно то, что хотите делать.
почему-то код на форуме один, а в программе (в архиве) совсем другой.

sorry за жесткий язык. Не посмотрел на авторство цитируемого.

Form1.ADOTable_vr.Edit;
form1.Pagecontrol1.Visible:=true;
 ShowMessage('Данные отредактированны!');

Данные БУДУТ отредактированы, тогда и только тогда, если когда нибудь впоследствии на этом наборе данных будет выполнена операция Post. А пока мы только проиформировали набор данных и СУБД, что намерены корректровать(редактировать) данные.

[_Алексей_]

нет мне надо было что бы 2 форма закрывалась а закрывается вся программа

[northener]

мне надо было что бы 2 форма закрывалась

Form2.Close;

[_Алексей_]

Ну я так и пишу все равно вся программа закрывается