Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.25;
Скачать: CL | DM;

Вниз

Как сделать диалог закрытия программы?   Найти похожие ветки 

 
smu ©   (2004-02-13 08:43) [0]

Здравствуйте! Первое что пришло на ум:
Procedure TfmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Application.MessageBox ("Вы уверены, что хотите выйти?",
"Внимание!", MB_ICONQUESTION+MB_YESNO) = IDNO then Exit;
end;
Почему-то не работает. Как сделать иначе?


 
ЮЮ ©   (2004-02-13 08:53) [1]

... then Close;


 
WondeRu ©   (2004-02-13 08:54) [2]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
canclose := Application.MessageBox ("Вы уверены, что хотите выйти?", "Внимание!", MB_ICONQUESTION+MB_YESNO) = IDNO ;

end;


 
ККВ ©   (2004-02-13 08:54) [3]

FormCloseQuery


 
smu ©   (2004-02-13 08:57) [4]

Спасиб


 
smu ©   (2004-02-13 09:00) [5]

canclose := Application.MessageBox ("Вы уверены, что хотите выйти?", "Внимание!", MB_ICONQUESTION+MB_YESNO) = IDYES ;



Страницы: 1 вся ветка

Текущий архив: 2004.02.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.035 c
3-79644
Dima
2004-01-31 21:51
2004.02.25
Пустые ADO DataSets


14-80216
SPeller
2004-02-04 19:04
2004.02.25
Сколько весит 5-рублёвая монета?


1-79839
raptorus
2004-02-12 15:59
2004.02.25
Подскажите компонент, алгоритм парсинга XML для русских букв?


3-79558
denis24
2004-01-29 13:58
2004.02.25
insert into aa.dbf (a,b,c,d) values....


1-79862
WG
2004-02-10 17:11
2004.02.25
Автоматическая отправка письма через Outlook