| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Кнопка отмены или выхода (без закрытия всей прогр.)
Grey-SPB © (2006-12-20 19:38:00)Здравствуйте, мне вместо procedure CloseForm нужно использовать отдельный юнит, который спрашивает при выходе что делать
вот:
procedure TSave.cancelClick(Sender: TObject);
begin
Application.Terminate;
end;
procedure TSave.OKBtnClick(Sender: TObject);
begin
if form1.savedialog1.execute then
form1.memo1.lines.savetofile(form1.savedialog1.filename);
application.terminate;
end;
procedure TSave.OtmClick(Sender: TObject);
begin
end;
т.е. он спрашивает "сохранить?" при нажатии cancelclick программа закрывается, при OKBtnClick выводится диалог сохранения, а при OtmClick надо , чтобы закрывалась эта форма Save, но оставалась Form1. "Save.Close" закрывает всю программу, пробовал некоторые другие способы - тоже самое. как быть?
Grey-SPB (2006-12-20 21:10:00) [1]Loginov Dmitry
Спасибо, помогло!
Loginov Dmitry (2006-12-20 20:38:00) [2]> "Save.Close" закрывает всю программу
В этом случае в процедуре CloseForm устанавливай Action := caNone;
Grey-SPB (2006-12-20 20:08:00) [3]Вот эта форма "Save" вызванная. главная Form1.
извини, про mdi и sdi не понимаю, после 3 лет на паскале =\
напишите пожалуйста хоть предположения какие-нибудь, а я протестю
Desdechado (2006-12-20 20:02:00) [4]Какая форма у тебя главная, а какая - вызванная?
MDI или SDI ?
| |
