Вторник, 19.01.2021, 04:36 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Anton93  
delphicode » Delphi » Процедуры и функции Delphi » Перехват закрытия окна программы
Перехват закрытия окна программы
dolphinДата: Пятница, 05.06.2009, 08:12 | Сообщение # 1
Администратор
Сообщений: 906
Статус: Offline
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
if MessageDlg('Закрыть программу?', mtCustom,
[mbYes, mbNo], 0) = mrYes then
begin
Action := caFree;
exit;
end
else
begin
Action := caNone;
exit;
end;
end;


Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
delphicode » Delphi » Процедуры и функции Delphi » Перехват закрытия окна программы
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2021 Хостинг от uCoz