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

← →
Макс (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.
Всё нормально.
Давай побольше кода.
И в каком именно месте вылетает.

← →
McSimm (2001-12-29 11:54) [6]

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

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

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

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

← →
DK (2001-12-31 03:04) [8]

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