Архив форумов ЦИТФорума

[Kozadoev]

Умные люди, подскажите как при нажатии на Х(Закрыть) появлялся бы
messagedlg('Закрыть?',[mbOK,mbNo],0) и если No, то форма бы не закрывалась.
Как поймать этот X?

[Shuran]

Что-то типа этого, если я не ошибаюсь

if(Application->MessageBox("Вы уверены, что хотите выйти?","Завершение работы", MB_YESNO | MB_ICONQUESTION | MB_TOPMOST) == IDNO) {
Action = caNone;
return;
}

[anthony]

-

[anthony]

-