Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.01;
Скачать: CL | DM;

Вниз

Помогите начинающему программисту   Найти похожие ветки 

 
greengeneral ©   (2006-09-13 11:44) [0]

Здравствуйте. Я только начинаю познавать Delphi и у меня такой вопрос:
Я пробую написать программу. в котором используются несколько Form и столкнулся с такой проблемой когда я  открываю новую form предыдущая не закрывается, а когда хочу вернуться обратно ты выходит ошибка: Project Project1.exe raised exception class EInvalidOperation with message ‘Cannot make a visible window modal’. Process stopped.  Use Step or Run to continue.

Вот код:

procedure TForm1.Button1Click(Sender: TObject);
begin
form3.showModal;
form1.Close;
end;

////Открываю, Form3, и хочу закрыть form1, но не закрывается

procedure TForm3.Button2Click(Sender: TObject);
begin
form2.showmodal;
form3.Close;
end;

///// Открываю Form2, и хочу закрыть form3

procedure TForm2.Button12Click(Sender: TObject);
begin
form1.showmodal;

end;

\\\\ Хочу открыть form1 и сдесь выходит ошибка

Подскажите пожалуйста, может другие команды надо использовать.
Заранее спосибо!!!


 
Ega23 ©   (2006-09-13 11:47) [1]

Вместо ShowModal используй просто Show, вместо Close используй Hide.
Т.е.
procedure TForm1.Button1Click(Sender: TObject);
begin
form3.show;
form1.Hide;
end;

////Открываю, Form3, и хочу закрыть form1, но не закрывается

procedure TForm3.Button2Click(Sender: TObject);
begin
form2.show;
form3.Hide;
end;

///// Открываю Form2, и хочу закрыть form3

procedure TForm2.Button12Click(Sender: TObject);
begin
form1.show;

end;


 
Рамиль ©   (2006-09-13 11:49) [2]


> Вот код:
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> form3.showModal;
> form1.Close;
> end;

Учти так же, что закрытие главной формы приведет к завершению приложения.


 
MsGuns ©   (2006-09-13 12:34) [3]

Сначала разобраться, что есть Главная форма и в чем ее отличие от остальных, используемых в проекте.



Страницы: 1 вся ветка

Текущий архив: 2006.10.01;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
2-1158069474
Леонид Федьков
2006-09-12 17:57
2006.10.01
Tmemo - изменение цвета для отдельных строк


15-1157968326
Сергей_С
2006-09-11 13:52
2006.10.01
DCU, собранная под Delphi6 не компилируется под Delphi7


6-1141065397
Daimyo
2006-02-27 21:36
2006.10.01
проблема с indy компонентом


10-1124007634
Андрей В.
2005-08-14 12:20
2006.10.01
Отключенные картинки в TWebBrowser


2-1157706940
Urvin
2006-09-08 13:15
2006.10.01
Положение мыши на экране