Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Проблема с ShowModal


Автор: MItornaDOS 29.2.2008, 18:45
Народ, помогите плз...

из главного окна вызываю форму:
Код
  Application.CreateForm(TForm123, Form123);
  Form123.ShowModal;

Потом, на форме 123 есть BitBtn2, свойство onClick его:
Код
procedure TForm123.BitBtn2Click(Sender: TObject);
begin
//
end;


при нажатии на BitBtn2 в форме 123 форма закрывается

програму проверял: никаких Visible формы нет, Destroy тоже нет

причём при
Код
  Application.CreateForm(TForm123, Form123);
  Form123.Show;
всё абсолютно нормально!


Ну что это такое... не пойму smile  smile  smile  smile  smile 


PS при замене BitBtn на Button всё нормально, но хотелось бы BitBtn...

Автор: THandle 29.2.2008, 19:01
MItornaDOS, Kind этой кнопки случйно не равен bkClose?

Автор: lukas 29.2.2008, 19:12
или ModalResult должен = mrNone

Автор: MItornaDOS 29.2.2008, 20:04
Цитата(THandle @ 29.2.2008,  19:01)
MItornaDOS, Kind этой кнопки случйно не равен bkClose?

нет, bkNo
но есть ещё кнопка bkOK, которая что-то делает (Close либо Hide там нет, проверял) но после завершения процедуры тот же результат

Автор: MItornaDOS 29.2.2008, 23:08
Всё народ, я нашёл в чём проблема! smile 
спасибо lukas, что напомнил про ModalResult smile 
при изменения Kind'а   ModalResult тоже изменяется, а если он не 'None' то форма после нажатия этой кнопки вылетает smile 
учту на будуйщее smile 
всем спасибоsmile

Автор: bems 29.2.2008, 23:20
ModalResult ей сделай mrNone (не путать с mrNo)

Добавлено через 45 секунд
гыыы я тормоз

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)