Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Шлифую баги с модальными формами [D5, Win2k]

Макс © (2001-12-29 11:01:00)
Показываю форму методом showmodal, возвращаю значение в modalresult. Когда это происходит перывый раз всё проходит OK, но при повторной попытке опять показываю её showmodal, она показывается, а на закрытие вываливается "Cannot make a visible window modal".

DK (2001-12-31 03:04:00) [1]
Макс © (29.12.01 11:28)
Попробуй закрывать просто по Сlose;

Макс (2001-12-29 11:58:00) [2]
Всё разобрался, вызов модальной формы висел на OnFormActivate основной формы. Соответственно при повторном вызове при закрытии мод. формы вызывалось это событие, которое в свою очередь снова пыталось открыть мод. форму.

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

McSimm (2001-12-29 11:54:00) [3]
Кода явно недостаточно.
Как создается форма? Где уничтожается (и уничтожается ли).
Нужен код (если есть) событий OnClose, OnCloseQuery, OnDestroy модальной формы

Vitaly (2001-12-29 11:38:00) [4]
Попробовал с 6.
Всё нормально.
Давай побольше кода.
И в каком именно месте вылетает.

Vitaly (2001-12-29 11:32:00) [5]
А, если попробовать mrOk вместо 6?

Макс (2001-12-29 11:29:00) [6]
procedure TPswForm.ButtonOKClick(Sender: TObject);
begin

.....

ModalResult := 6;
end;

Макс (2001-12-29 11:28:00) [7]
if PSWForm.ShowModal = 6 then
begin
......
end;

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

Vitaly (2001-12-29 11:12:00) [8]
Покажи строку вызова модального окна и его закрытия (где присваиваешь modalresult).

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »