Нужно чтобы при закрытии формы крестиком спросило разрешение на ее закрытие, и при нажатии "Нет" форма не закрывалась.   

Смотрим событие OnCloseQuery у TForm

Сейчас напишу код, жди.

Добавлено @ 15:04
Отыщи обработчик CloseQuery формы и запиши:



Это сообщение отредактировал(а) PsiMagistr - 11.6.2010, 15:07

Большое спасибо!!!!!!!!!!
Тема закрыта!!!

Эка Mikel, извернулся. И никаких тебе условий. Молодец, однако.
 

PsiMagistr
Угу  И еще одна поправочка. Сам не пробовал, но думаю что при закрытии диалога крестиком он также закроет форму, поэтому сравнение с idYes. Да, и вроде mrYes 

Хм.... Ничего не понял в последнем посте.     Мой вариант работает. Ваш тоже. Ничего дополнительного нигде не надо. Ибо:

Крестика у самого диалога попросту нет, точнее есть, но он же блокирован.)))

Это сообщение отредактировал(а) PsiMagistr - 11.6.2010, 15:50

По поводу оптимизации логических выражений: Сообщение 484
По поводу закрытя форм вообще и через "крестик" в частности: http://www.delphikingdom.com/asp/answer.asp?IDAnswer=61703

БелАмор, ну там ты тоже не иделаьно


заменить на

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

1. Надёжночть.
2. Прозрачночть.
3. Размер кода, красота и всё остальное.

Оптимизация по пункту 3 не должна идти за счёт пунктов 1 и 2. 
Во втором варианте работоспособность кода ставится в зависимость от настроек компилятора или наличия директив. Это внешние факторы по отношению к конкретной функции и при прочих равных условиях это потенциально снижает надёжность. В любом деле важно вовремя остановиться, и до какой степени учитывать влияние какого-либо фактора, в значительной степени зависит от предпочтений конкретного человека. Лично я избегаю ставить работоспособность кода в зависимость от того, включена быстрая оценка или нет. Это иногда может приводить к некоторому увеличению кода, но на душе - спокойнее...
Вообще, я иногда предпочитаю вносить некоторую заведомую избыточность, если это идёт на пользу надёжности или прозрачности. В частности, если есть глобальная переменная, равенство значения которой nil имеет принципиальное значение и где-то проверяется, то при её объявлении я её явно инициализирую nil. Не потому, что не знаю, что глобальные переменные и так инициализируются этим значением, а потому, что "= nil" в данном случае заменяет длинный комментарий с напоминанием, что при уничтожении соответствующей формы следует обнулять эту переменную.
Так что, в данном случае "неидеальность" - не результат недосмотра, а осознанный выбор варианта, с которым могут согласиться не все, но который не выходит за рамки приличий и имеет право на существование...

Да ну, это же дефолтное состояние. Можно сказать стандарт.

Предлагаю списать это на личные предпочтения...