Re: ShowModal не работает
От: LG Россия  
Дата: 13.05.03 08:23
Оценка:
Здравствуйте, SKYNET, Вы писали:

SKY> Я столкнулся с такой проблемой: есть две формы Form1 и Form2. Если создать новое приложение — всё работает (форма2 создаёться а по нажатии на Button1 формы2 она закрываеться и появляеться форма1). А если Я делаю тоже самое в моей программе, то форма2 создаёться, по нажатии на Button1 форма2 закрываеться, создаёться форма1, а вот сверху опять появляеться форма2 и если нажать на Button1, то закрываеться всё приложение. Я даже удалял ВСЁ из моей программы — результат тот же.

SKY>
SKY>procedure TForm1.FormShow(Sender: TObject);
SKY>begin
SKY>  Application.CreateForm(TForm2, Form2);
SKY>  Form2.ShowModal;
SKY>end;
 
SKY>procedure TForm2.Button1Click(Sender: TObject);
SKY>begin
SKY>   Form2.Close;
SKY>end;
SKY>


Посмотри порядок создания форм в своем проекте. (dpr)
Без всяких там прикольных подписей.
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.