Почему используя Form.Screen незакрывает окна?

[Aleck D.Shadow]

Код:

  for i {= 0 to Screen.FormCount - 1 do
    if Screen.Forms[i( <> Application.MainForm then
      Screen.Forms[i(.Close;

При выполнении этого кода, когда в приложении есть окно в которое встроенно еще n окон (методом ManualDock), они не закрываются.
При чем при вызове повторно всё отлично закрывается. А если же попытаться вызвать второй раз подряд, то ситуация повторяется.
Как будто проге нужно дать время, чтобы она закрыла окна. :?:

[PSD]

А вложенные формы  являются членами колекции forms[] объекта screen ?

Ты визуально проверял они там есть?

[Aleck D.Shadow]

Вообще-то являются.
MAINForm.Screen - где MAINForm -это главная форма от которой и создаются все формы.Так что является.
А как визуально?

[PSD]

В дебагере или просто распечатай названия форм указатели на которые есть в forms[].

Я не знаю концепцию делфи. Но думаю что первым шагом неплохобы отрасировать  что же ты на самом деле закрывашь.
В vb  были похожие непонятки. в конечном итоге выяснилось что у меня по умолчанию цеплялась не колеция  mainform а активного окна.

[Aleck D.Shadow]

Дело в том, что при создании очередной формы в программе она привязывается к основной(смотря как создавать) и добавляется в список, не что иное как Screen.

Если, кстати, закрывать форму не close, destroy то всё работает.
Вот такая вот бадяга.

Интересно почему через close не закрывает?

[Гром]

Возможно - если я правильно понимаю, WM_CLOSE аналог которого ты вызываешь в дельфи не закрывает окно безусловно...
Там есть цепочка проверяющая связи окна и т.д.
А WM_DESTROY - убивает безусловно...
Глянь разницу между ними в MSDN - у меня нет под рукой.

[Aleck D.Shadow]

Скорее всего так и есть. Так как проблему решил через Destroy, то соответственно вопрос снимаю.
Спасибо.

[Anonymous]

Вообще-то являются.
MAINForm.Screen - где MAINForm -это главная форма от которой и создаются все формы.Так что является.
А как визуально?

А откуда, извините, у класса TForm есть свойство Screen? Или метод, что не важно. Нету, или в 7-й есть? Screen это такая переменная типа TScreen, у которой есть свойство Forms, которое предоставляет доступ к формам, созданным в приложении. А вообще-то было-бы не корректней проверять не придочена-ли форма, и если да, то её того, а потом уничтожать. А ещё, как гласит документация у форм КРАЙНЕ не рекомендуется вызывать free и destroy руками. От этого могут быть трудноулавливаемые глюки.
Из хельпа:

Код:

procedure Release;

Description

Use Release to destroy the form and free its associated memory.

Release does not destroy the form until all event handlers of the form and event handlers of components on the form have finished executing. Any event handlers of the form should use Release instead of Free. Failing to do so could lead to an access violation.

[Aleck D.Shadow]

To Гость: Наверное в 7 есть. Насчет удаления ручкам, то коли я сам создал то сам смогу и удалить!

[kvlasov]

Цикл надо запустить с хвоста списка

Код:

  for i {= Screen.FormCount - 1 downto 0 do

Если по Close форма отрабатывает уничтожение, то она исчезает из списка, а у всех последующих форм индекс уменьшается на 1.
При этом в цикле с начала списка получаются пропуски форм.

[Var-Alex]

To Гость: Наверное в 7 есть. Насчет удаления ручкам, то коли я сам создал то сам смогу и удалить!

Дыкть удаляй! Я так и не понял, по Free убиваются окна или нет? А по Release?  :?:

[Aleck D.Shadow]

To Var-Alex: Только по Destroy.
To KVlasov: Я примерно так и делаю. Спасибо.

[kvlasov]

Как будто проге нужно дать время, чтобы она закрыла окна.

Оно и есть. Протормозил.

Код:

  begin
    Screen.Forms[i(.Close;
    Application.ProcessMessages;
  end;

[Aleck D.Shadow]

Ну всё понятно. Жалко, но слишком поздно. Как обычно бывает хорошее решение приходит слишком поздно.

Спасибо.

[Var-Alex]

To Var-Alex: Только по Destroy.
To KVlasov: Я примерно так и делаю. Спасибо.

 :?:  :?:  :?:  :?:  :?:  :?:

Но ведь free это вызов destroy при self <> nil !!! Как оно там может не работать!??!!
Не пробовал смотреть почему Free не работает??!

а я-бы не так сделал:
while screen.formcount > 0 do Screen.Forms[0].free;

[Var-Alex]

To Var-Alex: Только по Destroy.
To KVlasov: Я примерно так и делаю. Спасибо.

 :?:  :?:  :?:  :?:  :?:  :?:

Но ведь free это вызов destroy при self <> nil !!! Как оно там может не работать!??!!
Не пробовал смотреть почему Free не работает??!

а я-бы не так сделал:
while screen.formcount > 0 do Screen.Forms[0].free;

[Var-Alex]

To Var-Alex: Только по Destroy.
To KVlasov: Я примерно так и делаю. Спасибо.

 :?:  :?:  :?:  :?:  :?:  :?:

Но ведь free это вызов destroy при self <> nil !!! Как оно там может не работать!??!!
Не пробовал смотреть почему Free не работает??!

а я-бы не так сделал:
while screen.formcount > 0 do Screen.Forms[0].free;

[x77]

ну, если уж на то пошло, то именно для формы вызывать лучше не Free, и не Destroy, а Release. она ждёт, пока закончится обработка всех событий формы и всех её компонентов, а также перед закрытием формы отрабатывает всю очередь сообщений этой формы. хотя управление в вызваший метод возвращает сразу, не дожидаясь фактической отработки.

[x77]

Aleck D.Shadow, и, кстати, есть он (release) и в седьмой, и в шестой, и в пятой. насчёт чётверки врать не буду, но сильно удивлюсь, если там его нет.

[Aleck D.Shadow]

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

[Aleck D.Shadow]

Кстати, Var-Alex, я твое сообщение ТРИ раза перечитал. А потом сообразил что это одно и тоже.  

Да я сегодня явно переработал....

[Var-Alex]

Ничего, бывает у всех ....  

[Viktor Denk]

To Var-Alex

Но ведь free это вызов destroy при self <> nil !!! Как оно там может не работать!??!!
Не пробовал смотреть почему Free не работает??!

Teoreticheski da, a prakticheski net. Bag ot Borland i davnij, s 2-ki, do pjatoj tochno. Poetomu ja vsegda ruchkami proverjaju na nil, i poslednee: posle togo kak free sdelal - ne zabud' imja objekta v nil posadit'.

[Var-Alex]

To Var-Alex: Только по Destroy.
To KVlasov: Я примерно так и делаю. Спасибо.

 Ну это вообще-то очень странно. А ты не пробовал трассировать что происходит по вызову Free? Просто инетерсно, почему не рабоатет?

[x77]

2 Viktor_Denk: никакой это не баг. фри был написан как альтернатива Destroy, позволяющая корректно вычистить объект независимо от того, был он инициализирован, или нет. посмотри исходники борладна:

Код:

procedure TObject.Free;
begin
  if Self <> nil then
    Destroy;
end;

и ручками nil выставлять не нужно, для этого юзается FreeAndNil.

[Viktor Denk]

2 Viktor_Denk: никакой это не баг. фри был написан как альтернатива Destroy, позволяющая корректно вычистить объект независимо от того, был он инициализирован, или нет. посмотри исходники борладна:

Код:

procedure TObject.Free;
begin
  if Self <> nil then
    Destroy;
end;

и ручками nil выставлять не нужно, для этого юзается FreeAndNil.

Ja eto tozhe smotrel, i eto menjaa vsegda udivljalo: kakogo cherta v vyzovax iz exe lovlju inogda error i sistema letit k chertjam sobach'im. Po logu vsegda videl, chto eto proisxodit pri frjax bez proverko na urovne app. A za FreeAndNil spasibo - posmotrju "odnako".

[x77]

Система может лететь к чертям по той причине, что вызов Free сам по себе не гарантирует установление объекта в nil. Т.е. он может быть уже неприсвоен, но и не равен nil, а какому-нибудь мусору. Например:

Код:

var 
  P{ Pointer;
begin
  P {= nil;
  GetMem)P, 1024:;	
  FreeMem)P, 1024:;	
  if p <> nil then
    FreeMem )p, 1024: ;
end;

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

[Viktor Denk]

Система может лететь к чертям по той причине, что вызов Free сам по себе не гарантирует установление объекта в nil. Т.е. он может быть уже неприсвоен, но и не равен nil, а какому-нибудь мусору. Например:

Код:

var 
  P{ Pointer;
begin
  P {= nil;
  GetMem)P, 1024:;	
  FreeMem)P, 1024:;	
  if p <> nil then
    FreeMem )p, 1024: ;
end;

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

Nu takix shutok ne delal odnoznachno. V osnovnom pri sozdanii i udalenii formularov poluchal na orexi. Nu i obzhegsis' na moloke dujut na vodu. I eshche raz xochu bol'shoe spasibo skazat' za ukazanie na FreeAndNil. Progljadel kak - to. Ili v D2 ee ne bylo mozhet, ne mogu proverit', nado iskat' CD, installirovat' zanovo - odnoznachno   .

[Aleck D.Shadow]

Viktor Denk , а  ты и правда из Германии?

[Var-Alex]

Nu takix shutok ne delal odnoznachno. V osnovnom pri sozdanii i udalenii formularov poluchal na orexi. Nu i obzhegsis' na moloke dujut na vodu. I eshche raz xochu bol'shoe spasibo skazat' za ukazanie na FreeAndNil. Progljadel kak - to. Ili v D2 ee ne bylo mozhet, ne mogu proverit', nado iskat' CD, installirovat' zanovo - odnoznachno   .

Каких еще таких формуляров?? Мож это были глючные кмпаненты каки там использованы? Или ещё где ошибка?? Я много глюкво повидал, оно ой как сильно свзано может быть.... А FreeAndNil уже должно быть во 2-й DELPHI, оно ведь для поддержки многопоточности придумано...

з.ы. А транслих это плохо очень... Хрен прочитаешь? Давай по русски, а?