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

← →
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;

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

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