sguruapp@gmail.com
facebook vk instagram Телеграм youtube

Диалог закрытия программы - 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;

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

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

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

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