Шлифую баги с модальными формами

← →
Макс © (2001-12-29 11:01) [0]

Показываю форму методом showmodal, возвращаю значение в modalresult. Когда это происходит перывый раз всё проходит OK, но при повторной попытке опять показываю её showmodal, она показывается, а на закрытие вываливается "Cannot make a visible window modal".

← →
Vitaly © (2001-12-29 11:12) [1]

Покажи строку вызова модального окна и его закрытия (где присваиваешь modalresult).

← →
Макс © (2001-12-29 11:28) [2]

if PSWForm.ShowModal = 6 then
begin
......
end;

а закрываю просто присваивая переменной ModalResult какое-либо значение

← →
Макс © (2001-12-29 11:29) [3]

procedure TPswForm.ButtonOKClick(Sender: TObject);
begin

.....

ModalResult := 6;
end;

← →
Vitaly © (2001-12-29 11:32) [4]

А, если попробовать mrOk вместо 6?

← →
Vitaly © (2001-12-29 11:38) [5]

Попробовал с 6.
Всё нормально.
Давай побольше кода.
И в каком именно месте вылетает.

Кода явно недостаточно.
Как создается форма? Где уничтожается (и уничтожается ли).
Нужен код (если есть) событий OnClose, OnCloseQuery, OnDestroy модальной формы

Всё разобрался, вызов модальной формы висел на OnFormActivate основной формы. Соответственно при повторном вызове при закрытии мод. формы вызывалось это событие, которое в свою очередь снова пыталось открыть мод. форму.

Вообщем кривые руки=грабли в программе, а за помощь спасибо. :-)

Шлифую баги с модальными формами Найти похожие ветки