|
#1
|
||||
|
||||
ShowModal
Есть дочерняя форма, состоящая из поля ввода и двух кнопок. Для переименования. Делаю из главной:
Код:
if (frmRename->ShowModal() == mrOk) ... Код дочерней формы прост как три копейки: кинул на форму три компонента и поставил кнопкам обработчики: Код:
//--------------------------------------------------------------------------- void __fastcall TfrmRename::btnOKClick(TObject *Sender) { ModalResult = mrOk; } //--------------------------------------------------------------------------- void __fastcall TfrmRename::btnCancelClick(TObject *Sender) { ModalResult = mrCancel; } //--------------------------------------------------------------------------- UPD: хорошенько проанализировал код - выяснил, что вызов ShowModal стоит в отдельном потоке. Видимо как-то связано с этим. В таком случае придется извращаться с сообщениями, т.к. поток ни разу не TThread и слова Synchronize не знает. jmp $ ; Happy End! The Cake Is A Lie. Последний раз редактировалось Bargest, 16.03.2013 в 00:29. |