Есть дочерняя форма, состоящая из поля ввода и двух кнопок. Для переименования. Делаю из главной:
Код:
if (frmRename->ShowModal() == mrOk)
...
Все впорядке. Но если после этого закрываю главную форму - ловлю ошибку при удалении дочерней формы (EOSError System Error Code: 5). Если дочернюю не вызывать ни разу - все нормально.
Код дочерней формы прост как три копейки: кинул на форму три компонента и поставил кнопкам обработчики:
Код:
//---------------------------------------------------------------------------
void __fastcall TfrmRename::btnOKClick(TObject *Sender)
{
ModalResult = mrOk;
}
//---------------------------------------------------------------------------
void __fastcall TfrmRename::btnCancelClick(TObject *Sender)
{
ModalResult = mrCancel;
}
//---------------------------------------------------------------------------
Вопрос: W T F ?
UPD: хорошенько проанализировал код - выяснил, что вызов ShowModal стоит в отдельном потоке. Видимо как-то связано с этим. В таком случае придется извращаться с сообщениями, т.к. поток ни разу не TThread и слова Synchronize не знает.