Как вернуться в прошлое?

← →
Гиричев Руслан © (2004-02-21 18:09) [0]

Здравствуйте!
После CloseQuery у меня идёт запрос на сохранение, вопрос в том, как закрыть это окно и вернуться в программу?
Заранее спасибо, причём очень ОГРОМНОЕ!!!

← →
TUser © (2004-02-21 18:12) [1]

hide. А как вернуться в прогу, если ты оттуда не уходил - не знаю *)

← →
YurikGl © (2004-02-21 18:20) [2]

Посмотри CanClose

← →
Юрий Зотов © (2004-02-21 19:08) [3]

> Гиричев Руслан

Надо не ПОСЛЕ CloseQuery, а в САМОМ CloseQuery.

if DataNotSaved and (MessageBox(...) = ID_YES) then
begin
... // Сохранение данных
end;

← →
Max003 (2004-02-21 19:44) [4]

По теории Инштейна для того, чтобы вернуться в прошлое необходимо развить скорость близкую или даже большую, нежели скорость света.

← →
Гиричев Руслан © (2004-02-21 22:20) [5]

Спасибо, сейчас посмоРЮ

← →
Гиричев Руслан © (2004-02-21 22:37) [6]

Нет, всё же вопрос не правильный :-)
Вы уж извините, но как закрыть то окно, и продолжать работать в проге. Кагда на кнопку пишешь Close;, зависает...

> Юрий Зотов
Извините, но у меня должна открываться моя форма, а не стандартная...

← →
Гиричев Руслан © (2004-02-21 22:38) [7]

извините, там не Close, а hide...
когда close - выходит из проги

← →
Юрий Зотов © (2004-02-21 23:01) [8]

> Гиричев Руслан © (21.02.04 22:37) [6]
> Извините, но у меня должна открываться моя форма, а не
> стандартная...

А что, это неразрешимая проблема?

if DataNotSaved then
with TMySaveDataForm.Create(nil) do
try
ShowModal
finally
Free
end;

Увы, никак нет!

увы никак нет что?

Наверное вопрос в этом: procedure TfmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose := MessageBox(Handle, "Вы хотите закрыть программу?", Завершение работы", MB_YESNOCANCEL + MB_ICONQUESTION)=ID_YES; end;

Следующий вопрос будет о том, почему его программа не закрывается при шатдауне Windows и даже подвешивает их при этом.

Как вернуться в прошлое? Найти похожие ветки