ShowModal не работает
От: SKYNET  
Дата: 13.05.03 08:05
Оценка:
Я столкнулся с такой проблемой: есть две формы Form1 и Form2. Если создать новое приложение — всё работает (форма2 создаёться а по нажатии на Button1 формы2 она закрываеться и появляеться форма1). А если Я делаю тоже самое в моей программе, то форма2 создаёться, по нажатии на Button1 форма2 закрываеться, создаёться форма1, а вот сверху опять появляеться форма2 и если нажать на Button1, то закрываеться всё приложение. Я даже удалял ВСЁ из моей программы — результат тот же.
procedure TForm1.FormShow(Sender: TObject);
begin
  Application.CreateForm(TForm2, Form2);
  Form2.ShowModal;
end;
 
procedure TForm2.Button1Click(Sender: TObject);
begin
   Form2.Close;
end;
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.