|
dolphin
|
Дата: Пятница, 05.06.2009, 08:12 | Сообщение # 1
|
Администратор
Сообщений: 897
Статус: 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, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
