Диалог закрытия программы - Delphi

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var DlgRes:integer;

begin

DlgRes := MessageBox(form1.Handle, 'Закрыть программу?', 'Сообщение', MB_YESNO or MB_ICONQUESTION);

if DlgRes = ID_NO then action := caNone;

end;

Возврат к списку

обучись профессии будущего

Хочешь стать успешным разработчиком
приложений? Тогда добро пожаловать к нам.

GURU

Новости

Наши услуги

Связаться с нами
sguruapp@gmail.com
+7 771 559 26 76 WhatsApp, Viber, Telegram
Остались вопросы? Закажите обратный звонок, мы Вам перезвоним в любую точку мира

Правила

Политика конфиденциальности

Дополнительно