VPF::закрытие модальной формы - Форум программистов

demoded

Дата 20.11.2007, 11:57 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 53
Регистрация: 7.12.2006

Репутация: нет
Всего: нет

жутко туплю, немогу найти где грабли. В проекте постоянно использую следующую схему

MainForm вызывает Form2.MyShowForm
в MyShowForm делаю чего мне надо и показываю форму ShowModal
с показанной Form2 по нажатии на кнопку вызывается Form3.MyShowForm
опятьже делаю свои дела и показываю 3-ю форму ShowModal

при закрытии Form3(любым способом) закрывается Form2 по непонятным причинам

сбивает с толку, то что такая схема раз 20 уже использована в этом проекте и никогда ничего подобного небыло. Формы работающие нормально и эти сравнивал - различий не нашел (может быть и не заметил ибо истерика уже :( )

pseud

Дата 20.11.2007, 12:07 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

такие грабли (у меня) бывают например в таком случае

Код


frm := TForm99.Create(Self);
try
  frm.ShowModal;
finally
  Free;
end;

т.е. Free срабатывает для Self формы (необходимо frm.Free)
грабли эти из-за такой стандартной (для меня) конструкции:

Код


with TForm99.Create(Self) do
try
  ShowModal;
finally
  Free;
end;

хотя помню такое возникало и при корректном написании кода, когда из одной модальной ормы открывали другую и первая при закрытии второй присваивала себе ModalResult первой

пиши - будем искать грабли

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

demoded

Дата 20.11.2007, 12:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 53
Регистрация: 7.12.2006

Репутация: нет
Всего: нет

обычно формы закрываю просто вызывая Close, либо если нужен ModalResult то выставляю его у кнопки

пробовал вместо Close писать Form3.Close - непомогло. Если форму закрываю через Close, то ModalResult = MrNone

pseud

Дата 20.11.2007, 15:06 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

сделал проект как ты описал
на сколько я понял у тебя такой механизм открытия форм
(IMHO немного странноватый)

Form1;
Button1;

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  frm: TForm2;
begin
  frm := TForm2.Create(Self);
  frm.myshow;
  frm.Free;
end;

Form2;
Button1;

Код


procedure TForm2.myshow;
begin
  Self.ShowModal;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  frm: TForm3;
begin
  frm := TForm3.Create(Self);
  frm.myshow;
  frm.Free;
end;

Form3;

Код


procedure TForm3.myshow;
begin
  ShowModal;
end;

ничего не схлопывается
все работает ок

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

demoded

Дата 21.11.2007, 06:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 53
Регистрация: 7.12.2006

Репутация: нет
Всего: нет

так и я возмущен происходящем до глубины души!
сейчас сделал 2 новых формы, все нормально, осталось перетащить содержимое.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »