Help Me - Помощь студентам

Oleg Romanchuk · 16.08.2007, 12:04

Пожалуйста, очень прошу помогите мне кто может!!!
У меня не как не получается программка, которая должна выводить запрс на закрытие!!! Типа: Вы действительно хотите закрыть программу? Да или Нет!!!
Ни как не могу понять что надо сделать!!!
Заранее огромное СпАсИБо!!!

Master-Skull · 16.08.2007, 12:32

У главной формы OnCloseQuery пиши:

Код:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageBox(handle, 'Вы точно хотите выйти?', 'Выйти?', MB_YESNO+MB_ICONQUESTION)=IDYES then
 CanClose:=true
else CanClose:=false;
end;

Carbon · 16.08.2007, 13:15

А лучше:

Код:

CanClose:=MessageBox(handle, 'Вы точно хотите выйти?', 'Выйти?', MB_YESNO+MB_ICONQUESTION)=IDYES;

Oleg Romanchuk · 17.08.2007, 09:02

Всем большое спасибо!!! Вы мне очень помогли!

16.08.2007, 12:04	#1
Oleg Romanchuk Ghost Форумчанин Регистрация: 16.08.2007 Сообщений: 143	Help Me Пожалуйста, очень прошу помогите мне кто может!!! У меня не как не получается программка, которая должна выводить запрс на закрытие!!! Типа: Вы действительно хотите закрыть программу? Да или Нет!!! Ни как не могу понять что надо сделать!!! Заранее огромное СпАсИБо!!!

16.08.2007, 12:32	#2
Master-Skull Пользователь Регистрация: 10.08.2007 Сообщений: 43	У главной формы OnCloseQuery пиши: Код: `procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if MessageBox(handle, 'Вы точно хотите выйти?', 'Выйти?', MB_YESNO+MB_ICONQUESTION)=IDYES then CanClose:=true else CanClose:=false; end;` Комьютер не поддаётся законам физики: Глюки появляются из неоткуда, файлы пропадают в никуда... Объём диска называется весом и измеряется в метрах... --------------------------------------------------- Дрова для модема находятся на диске, а дрова для дисковода - в интернете...

16.08.2007, 13:15	#3
Carbon JAVA BEAN Участник клуба Регистрация: 22.04.2007 Сообщений: 1,329	А лучше: Код: `CanClose:=MessageBox(handle, 'Вы точно хотите выйти?', 'Выйти?', MB_YESNO+MB_ICONQUESTION)=IDYES;` http://i.imgur.com/oCA5O.png

17.08.2007, 09:02	#4
Oleg Romanchuk Ghost Форумчанин Регистрация: 16.08.2007 Сообщений: 143	Спасибо!!! Всем большое спасибо!!! Вы мне очень помогли! Последний раз редактировалось Oleg Romanchuk; 17.08.2007 в 12:59.