переход между формами с ShowModal

[Jenny89]

Нужна помощь, хочу осуществить переход между формами желательно с помощью ShowModal.

Form1.Showmodal;
Form2.Close;

Если переход присходит по второму кругу выскакивает ошибка:TCustomForm.ShowModal for Form7 impossible, because already modal
Как можно с ShowModal реализовать переход между формами?

[evg_m]

хочу осуществить переход между формами

что это такое?
Перед вами активная форма Form...
что делаете и что происходит далее?
P.S. ShowModal это не переход туда и далее, это переход туда с возвратом обратно.
Если мы хотим показать исходную, надо не показывать ее заново, а просто закрывать текущую модальную (и те которые ими станут) до тех пор пока не до дойдем до
нужной.

form2.Close;//сначала что-то ненужное закрыть
form1.ShowModal;// а потом показать что-то нужное

может так?

[Jenny89]

Сообщение от evg_m

что это такое?
Перед вами активная форма Form...
что делаете и что происходит далее?
P.S. ShowModal это не переход туда и далее, это переход туда с возвратом обратно.

скажем я на форме А перехожу на форму Б, потом с Б опять на А, и когда во второй раз перехожу с А на Б появляется выше указанная ошибка. Это можно как то исправить ?

[evg_m]

Это можно как то исправить ?

чтобы исправлять код нужен код, который надо исправить.
где код переходов и возвратов?
возврат ИЗ модальной делается не переходом, а "простым" закрытием.

[northener]

Сообщение от Jenny89

Нужна помощь, хочу осуществить переход между формами желательно с помощью ShowModal.

Form1.Showmodal;
Form2.Close;

Если переход присходит по второму кругу выскакивает ошибка:TCustomForm.ShowModal for Form7 impossible, because already modal
Как можно с ShowModal реализовать переход между формами?

Никто так до сих пор и не понял о каком "переходе" идет речь.

[Jenny89]

извините может я не так выражаюсь, что никто понять не может.

код для закрытия Формы 1 и открытия формы 2 (который я использую):

TForm1.Button1Click
begin
Form1.Close;
Form2.ShowModal;
end;

код для закрытия Формы 2 и открытия формы 1 (который я использую):

TForm2.Button1Click
begin
Form2.Close;
Form1.ShowModal;
end;

я его вначале тоже описывала...

[northener]

Нет. Ты сначала объясни почему тебе нужен именно ShowModal? Откуда взялась первоначальная проблема с TDBNavigator'ом?

[ResourceSpace]

Сообщение от Jenny89

TForm1.Button1Click
begin
Form1.Close;
Form2.ShowModal;
end;

...

TForm2.Button1Click
begin
Form2.Close;
Form1.ShowModal;
end;

Как это вообще может работать? "Form1.Close;" по идее должно просто вырубить программу и всё.
Не проверял, но попробуйте так:

TForm1.Button1Click
begin
Form1.Hide;
Form2.Show;
end;

...

TForm2.Button1Click
begin
Form2.Hide;
Form1.Show;
end;

[evg_m]

код для закрытия Формы 2 и открытия формы 1 (который я использую):
Код:


TForm2.Button1Click
begin
Form2.Close;
Form1.ShowModal;
end;

возврат ИЗ модальной делается не переходом, а "простым" закрытием.

TForm2.Button1Click
Form2.Close; .// и ВСЕ!!!

после этого мы АВТОМАТИЧЕСКИ Вернемся ТУДА откуда нас (form2) вызвали!!!
и в том же режиме показа( если было до этого form1.showModal так и останется!!)
если было просто show pзначит так и будет.

P.S. а для кнопок еще есть свойство установки "флагов" возврата ModalResult !!!
который потом можно использовать

res:=form2.showmodal;
case res of
mrok: ;// нажали одну кнопку
mrcancel: ; // нажали другую кнопку
end;

[Fantomas_RUS]

Коллеги, мучает вопрос недопонимания. Создаю динамическую форму на ней создаю динамический Edit. Вношу данные в Edit.Text. Вызываю форму ShowModal. Выскакивает ошибка cannot make a visible window modal. Понимаю что delphi говорит, что не кому присвоить фокус. Почему? если Edit убираю все ок.

procedure TForm1.BitBtn1Click(Sender: TObject);
var F: TOptionForm; 
begin
F:= TOptionForm.CreateNew(Self);
With F do
begin
 Name:= 'FormOption1';
 BorderStyle:= bsDialog;
 Position:= poScreenCenter;
 Height:= 200;
 Width:= 300;
 Parent:= Self;
end;

F.Edit1:=TEdit.Create(F);
With F.Edit1 do
begin
 Name:= 'Edit1';
 Parent:= F;
 Top:= 30;
 Left:= 105;
 Height:= 20;
 Width:= 145;
 Enabled:= true;
 Text:= '123456';
end;
F.ShowModal;// Ошибка cannot make a visible window modal
end;