Скачать: CL | DM;

Кнопка отмены или выхода (без закрытия всей прогр.)   Найти похожие ветки 

← →
Grey-SPB ©   (2006-12-20 19:38) [0]

Здравствуйте,  мне вместо 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" закрывает всю программу, пробовал некоторые другие способы - тоже самое. как быть?

---

← →
Desdechado ©   (2006-12-20 20:02) [1]

Какая форма у тебя главная, а какая - вызванная?
MDI или SDI ?

---

← →
Grey-SPB ©   (2006-12-20 20:08) [2]

Вот эта форма "Save" вызванная. главная Form1.
извини, про mdi и sdi не понимаю, после 3 лет на паскале =\
напишите пожалуйста хоть предположения какие-нибудь, а я протестю

---

← →
Loginov Dmitry ©   (2006-12-20 20:38) [3]

> "Save.Close" закрывает всю программу


В этом случае в процедуре CloseForm устанавливай Action := caNone;

---

← →
Grey-SPB ©   (2006-12-20 21:10) [4]

Loginov Dmitry
Спасибо, помогло!

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.037 c