Странности с модальной формой

← →
~ShamaN~ © (2007-09-17 11:35) [0]

Помогите пожалуйста разобраться со следующей проблемой: в D7 создаю и показываю форму:

Application.CreateForm(TForm5, Form5); Form5.ShowModal;

под XP все работает нормально, а под Windows 98, Me окно ИНОГДА (закономерность я так и не нашел) открывает сзади основной формы. При этом его нельзя сделать активным либо закрыть, т.к. оно меньше по размерам.

Пробовал:
1. SetForegroundWindow( Form5.Handle)
2. BringWindowToTop(Form5.Handle)
3. Application.ProcessMessages перед вызовом ShowModal
4. Делать как написано тут: http://groups.google.com/group/borland.public.delphi.language.objectpascal/browse_thread/thread/ad652db00d31ae95/eb41d743d0c9ee88?lnk=st&q=DisableProcessWindowsGhosting&rnum=5#

Ничего не помогает!

← →
{RASkov} © (2007-09-17 11:39) [1]

> [0] ~ShamaN~ © (17.09.07 11:35)
> Application.CreateForm(TForm5, Form5);
> Form5.ShowModal;

А попробуй так:
with TForm5.Create(nil) do try ShowModal finally Free; end;

← →
~shaman~ © (2007-09-17 11:48) [2]

это вместо моего кода? если да - то вылетает с ошибками прога.

← →
{RASkov} © (2007-09-17 11:51) [3]

> [2] ~shaman~ © (17.09.07 11:48)

Это не совсем "вместо", а еще и подумать нужно...
Я ведь не вижу твой код и не знаю с какими ошибками и что у тебя там вылетает....
А тот кусок кода, что в [1] ошибок дать не может...

← →
Сергей М. © (2007-09-17 11:52) [4]

> вылетает с ошибками прога

А отладчик тебе на что дан ?

← →
~shaman~ © (2007-09-17 11:59) [5]

Вот что у меня получилось:
{ Application.CreateForm(TForm4, Form4); Form4.ShowModal; } with TForm5.Create(nil) do try ShowModal finally Free; end;

Скрин ошибки:
http://img207.imageshack.us/img207/1618/errorna5.gif

← →
Anatoly Podgoretsky © (2007-09-17 12:04) [6]

> А тот кусок кода, что в [1] ошибок дать не может...

Может, но еще с большей вероятностью код в TForm5

← →
Сергей М. © (2007-09-17 12:06) [7]

> Скрин ошибки

Плохо замазал суперпуперсекретное имя файла, теперь оно - достояние спецслужб)

Ты не ответил на вопрос по поводу отладчика ..

← →
~shaman~ © (2007-09-17 12:13) [8]

Сергей М.
поясни вопрос.

← →
{RASkov} © (2007-09-17 12:16) [9]

> [6] Anatoly Podgoretsky © (17.09.07 12:04)
> Может, но еще с большей вероятностью код в TForm5

Вот в TForm5 - это да, а это должно работать и так
TForm5.Create(nil);
ShowModal
Free;
:)

> [5] ~shaman~ © (17.09.07 11:59)

А почему закомментировал TForm4, а вставил код для TForm5?
И почему не слушаешь [4] Сергей М. © (17.09.07 11:52)?

← →
{RASkov} © (2007-09-17 12:18) [10]

> [8] ~shaman~ © (17.09.07 12:13)

> И почему не слушаешь [4] Сергей М. © (17.09.07 11:52)?

т.е. ответь на его вопрос... :)

← →
Сергей М. © (2007-09-17 12:21) [11]

> ~shaman~ © (17.09.07 12:13) [8]
> поясни вопрос.

Почему не используешь возможности встроенного в Делфи отладчика для поиска своей ошибки ?

← →
~shaman~ © (2007-09-17 12:21) [12]

почему закомментировал TForm4, а вставил код для TForm5?

это я сюда когда ставлял и редактировал случайно изменил. В коде все правильно. Извиниюсь за неточность.

> [11] Сергей М. © (17.09.07 12:21)
> Почему не используешь возможности встроенного в Делфи отладчика
> для поиска своей ошибки ?

Потому что самый лучший отладчик для Делфи - это www.delphimaster.ru :)

← →
Вася Правильный (2007-09-17 12:25) [14]

> открывает сзади основной формы

бывает
alt-tab помогает

> ~shaman~ (17.09.2007 12:21:12) [12]

Правильно это как?

> [12] ~shaman~ © (17.09.07 12:21)
> В коде все правильно

Нет... не правильно...
Иначе бы ошибки не было :)
Так что ищи эту ошибку, а здесь прекращай флудить, раз спросить нормально не можешь...

> {RASkov} (17.09.2007 12:33:16) [16]

Остынь, это не твоя обязанность, не лезь в чужую иерархию.

> [17] Anatoly Podgoretsky © (17.09.07 12:50)
> Остынь

Ну вот... :( Ваше "самое доброе дело" помогаю осуществить, ну да ладно....
В [16] как раз и был намек на "правильно задавать вопросы".... ОкЕй... ухожу :)
Удачи.

Странности с модальной формой Найти похожие ветки