в приложении имеется куча вспомогательных модальных форм, которые создаются приблизительно так:

Код

{...} var   DemoForm: TDemoForm; function DemoStart (Sender: TForm): boolean; implementation function DemoStart (Sender: TForm): boolean; begin  DemoForm := TDemoForm.Create (sender);  DemoForm.Position := poOwnerFormCenter;  result := DemoForm.ShowModal = mrOk;  freeandnil(DemoForm); end;

и часто бывает когда одна вспомогательная форма вызывает похожую функцию по созданию другой вспомогательной формы.
И тут выплыл один очень-очень неприятный глюк в операционных системах ниже Win2K - некотроые формы созданные по такому принципу почему-то создаются на "заднем плане" т.е. не перед той формой которая вызвала данную ф-цию а за ней.

Я чесно говоря даж незнаю в какую сторону копать, есть у кого какие мысли?

Код

function DemoStart: boolean; begin   DemoForm:= TDemoForm.Create(Application);   with DemoForm do try     result := DemoForm.ShowModal = mrOk;   finally     Release;   end; end;

И все у тебя будет нормально и работать как нужно

Alex
в таком варианте я немогу позиционировать модальное окно по центру родителя

Это почему же нельзя? Разве кто-то отменял формулу, по которой мы можем найти позицию крайнего верхнего правого угла окна?
Left новой формы равен Left родителя (предполагаемого) плюс Width div 2 родителя минус Width div 2 новой формы. По аналогии работа осуществляется и с Top.
Две строчки добавить перед вызовом формы и все готово: новая форма стоит по центру предполагаемого родителя.

z-END

случайно не сработает такая команда:

DemoForm.Activate;

или

DemoForm.SetFocus;

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 02:23

Цитата(Quadr0 @ 22.10.2005, 20:37)

Position := poDesktopCenter;

Это же не по центру "родителя"

Цитата(z @ 22.10.2005, 17:56)

почему-то создаются на "заднем плане"

А как насчёт, сделать форму поверх всех, на долю секунды, а потом вернуть к прежнему состоянию:

Код

SetWindowPos(DemoForm.Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE); //поверх SetWindowPos(DemoForm.Handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE); //обратно

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 02:24

Цитата(z @ 22.10.2005, 19:00)

Alex в таком варианте я немогу позиционировать модальное окно по центру родителя

а это в принцыпе и не желательно делать, т.к. родителя вашего могли сдвинуть куда угодно и если окно, которое вы вызываете маленькое, то оно просто может выйти за пределы экрана...

Цитата(Quadr0 @ 22.10.2005, 20:37)

Постой, а как ты вообще таким способом несколько одинаковых форм создаёшь?

а я и неговорил что одинаковых... имеется главная форма которая создается во время запуска приложения, остальные формы создаются в тот момент когда они необходимы.

Цитата

Это же не по центру "родителя"

очепятка =) имелось в виду OwnerForm

Цитата(Quadr0 @ 22.10.2005, 21:28)

А вообще то в таком случае будет AV, т.к. родителя-формы нет

нет и быть неможет т.к. для создания формы используется такая конструкция:

Код

procedure TMainForm.Click; begin if not DemoStart (Self) then exit; {...} end;

Цитата(Alex @ 22.10.2005, 22:45)

а это в принцыпе и не желательно делать, т.к. родителя вашего могли сдвинуть куда угодно и если окно, которое вы вызываете маленькое, то оно просто может выйти за пределы экрана...

что да то да... только юзвери люди неочень образованные и когда у них окошко находится в нижнем правом углу а новое открывается по центру рабочего стола его незамечают (я конечно в шоке, но это так и есть)

а впринципе такой вариант создания формы неправильный?

Цитата(z @ 23.10.2005, 13:09)

а впринципе такой вариант создания формы неправильный?

У меня в приложении окола 100 форм и около 50 форм создается вот таким методом:

Код

procedure InputBank(...); begin   with TfrmInpBank.Create(Application) do try       ...          ShowModal;     end;   finally     Release;   end; end;

Скажу честно такой метод отображения форм используется практически во всех моих приложениях и никаких сбоев небыло. Да их в принципе не может быть, т.к. сделано с точки зрения создания и разрушения объектов все правильно.
Добавлено @ 13:03
z-END, не так давно я описывал некоторые методы работы при динамическом создании форм, почитайте я думаю много станет ясно.
http://forum.vingrad.ru/index.php?showtopi...hl=release&st=0
http://forum.vingrad.ru/index.php?act=ST&f=84&t=63068&st=0

Хотел попробовать создать форму в runtime, по этим примерам, но вылазит сообщение с ошибкой: 'Resource TDemoForm not found' Почему так?

Цитата(Guest @ 26.10.2005, 15:28)

TDemoForm

а у тебя она в проекте-то есть?
Добавлено @ 14:53
Alex, кстати подправил код на такой:

Код

function DemoStart : boolean; begin  DemoForm := TDemoForm.Create (Application);  result := DemoForm.ShowModal = mrOk;  freeandnil(DemoForm); end;

но положительных результатов это не принесло...
проблема была в таб-контроле от BergSoft (надо было RAdmin'a слушать )... пришолсь заменить на стандартный и после этого все заработало...

Цитата(z @ 26.10.2005, 14:49)

а у тебя она в проекте-то есть?

Э..э..э... нету %) Я думал создаётся в runtime - это типа CreateWindowEx, т.е. без использования ресурсов.
Сейчас попробовал, если добавить форму, всё работает (Application.CreateForm из проекта убрал). =)