Можно ли закрыть форму в ее OnShow?

← →
Calm (2003-04-28 09:23) [0]

Уважаемые коллеги,
имеется форма заказа OrderForm, в которой *необходимо* заполнить поле имени клиента. Клиент выбирается с помощью специальной формы CustomerForm.
При необходимости добавить новый заказ делаю OrderForm.ShowModal.
В OnShow OrderForm сразу вызываю окно выбора клиента CustomerForm.ShowModal (чтобы пользователю меньше кнопок нажимать - все равно клиента нужно выбирать).
Если пользователь передумал вводить заказ, то он отменит выбор клиента (нажмет кнопку "Отмена") при этом мне нужно закрыть еще не показавшуюся форму заказа (если клиента не выбрали, то и другие параметры заказа уже ни к чему указывать).

Но вот не получается у меня закрыть форму OrderForm :(
Обычное ModalResult:=mrCancel не помогает.
Не увенчалась и робкая попытка закрыть с помощью сообщения SendMessage(self.handle, WM_CLOSE, 0, 0).
Даже исключения raise Exception.Create("ла-ла-ля"); перехватывается где-то внутри формы, а не в моем try-except.

Укажите на мою ошибку - что я делаю не так и как нужно, чтобы форма ORderForm все-таки закрывалась.

← →
Fighter (2003-04-28 09:48) [1]

Попробуй PostMessage! У меня это работает!
PostMessage отправляет сообщение в очередь и как только OnShow отработает, твоё окно получит сообщение WM_CLOSE. Так что на слабенькой машине увидишь как появиться и исчезнет окошко!
SendMessage отправляет сообщение сразу и ждёт пока не получит результат.

← →
NewN (2003-04-28 09:57) [2]

Правильнее вызывать CustomerForm не в OnShow, а написать отдельную функцию.
function SelectOrder: ModalResult.
begin
if CustomerForm.ShowModal = MrOk then
Result:= OrderForm.ShowModal
else
Result:= MrCancel;
end;

← →
Calm (2003-04-29 13:40) [3]

Большое спасибо!

Можно ли закрыть форму в ее OnShow? Найти похожие ветки