Работа с кнопкой "закрыть" - Общие вопросы Delphi - Страница 2

mihali4 · 23.12.2007, 21:14

Короче, Склифосовский! (Устал смотреть на всю эту бредятину)
Вот код по вопросу темы:

Код:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Закрыть?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
CanClose:=True else
CanClose:=False;
end;

Dunpeal · 24.12.2007, 08:57

в OnClose пишешь
if aga=True then
Action:=caFree
else
Action:=caNone;
Form1.visible:=False;
Form2.visible:=True;
Пока у тебя aga=False твоя программа не закроется.

23.12.2007, 21:14	#11
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Короче, Склифосовский! (Устал смотреть на всю эту бредятину) Вот код по вопросу темы: Код: `procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if MessageDlg('Закрыть?',mtConfirmation,[mbYes,mbNo],0)=mrYes then CanClose:=True else CanClose:=False; end;`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
если пользователь наберет какой-то другой символ не "y" или "n" и нажмет enter, программа проигнорирует	skobets	Общие вопросы C/C++	2	03.06.2008 06:51
Excel файл открывается не "до конца" (странички "не показываются" только серое поле)	Dorvir	Microsoft Office Excel	2	28.03.2008 10:03
Создаю диаграмму "Bar". Подскажите как убрать растояние между "столбами"	MAcK	Компоненты Delphi	11	24.10.2007 10:49
На чем пишутся стратегии типа "Казаков" и "Эпохи империи"	Tayfun	Свободное общение	3	26.06.2007 20:27

24.12.2007, 08:57	#12
Dunpeal Пользователь Регистрация: 16.11.2006 Сообщений: 28	в OnClose пишешь if aga=True then Action:=caFree else Action:=caNone; Form1.visible:=False; Form2.visible:=True; Пока у тебя aga=False твоя программа не закроется.