Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];

Вниз

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

 
Макс   (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]

Макс © (29.12.01 11:28)
Попробуй закрывать просто по Сlose;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.016 c
14-52648
Alexandr
2001-11-16 08:32
2002.01.17
Нехилая тут цензура


3-52522
Oleg_K
2001-12-14 10:05
2002.01.17
DataSet not in edit or insert mode


1-52528
alexias
2001-12-27 14:54
2002.01.17
Дерево каталогов просканировать


3-52486
Hyper-X
2001-12-14 14:17
2002.01.17
Please HELP


1-52606
Yaro
2001-12-30 14:11
2002.01.17
TRegistry.SaveKey - ???





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский