+7 771 559 26 76
sguruapp@gmail.com
Меню
×
Мобильные
приложения
Курсы по
программированию
Цены
на услуги
Наши
контакты
Guru
music
Блоги
Новости
Отзывы
Диалог закрытия программы - 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
;
Возврат к списку
обучись профессии будущего
Хочешь стать успешным разработчиком
приложений? Тогда добро пожаловать к нам.
Позвоните мне