Пожалуйста, помогите разобраться с созданием многооконного приложения.
Идея такая: имеется главная форма приложения, из которой можно вызывать несколько дочерних форм с графиками.
Свойство FormStyle главной формы я установил в fsMDIForm, свойство FormStyle дочерней формы - в fsMDIChild. На гл.форме есть кнопка "График", по щелчку на которой открывается форма с графиком; если щелкнуть еще раз - открывается еще одна форма и т.д.
Дочерние формы можно упорядочивать каскадом, по вертикали и по горизонтали.
Проблема вот в чем.
1. Как сделать, чтобы главная форма при запуске разворачивалась на весь экран? WindowState устанавливал в wsMaximized - форма хоть и развернута полностью, но смещена немного вниз (нижний скрол почти не виден).
2. Когда запускается дочерняя форма, то сквозь нее видно все, что расположено на главной форме. Элементы гл. формы даже перекрывают элементы дочерней. Как этого избежать?
3. Как закрывать дочерние формы?
4. При перемещении дочерней формы по главной, на главной появляются скролы, но они мне не нужны. Как их убрать?
5. Если дочернюю форму развернуть на весь экран, то потом ее невозможно восстановить.
Есть и еще кое-какие непонятки, но с ними я попробую разобраться сам, а вот эти вопросы я сам не могу решить. Помогите кто чем может.

Это сообщение отредактировал(а) Vladimir_K - 13.12.2006, 18:46

Модератор: Пожалуйста, один топик - один вопрос.
1) wsMaximized
2) покажи код
3) В FormClose дочерней формы напиши Action := caFree;
4) Отлавливай сообщения создания скроллов
5) Возможно. Покажи код.

1. либо поставить Align=alClient, либо в OnCreate руками задать Top, Left, Width и Height.
2. а почему так происходит? это не стандартное поведение, смотрите, что вы ещё накрутили в дочерней форме помимо свойства FormStyle. обычно таких проблем нет 
3. в OnClose дочерней формы надо написать Action := caFree;
4. у главной формы убрать AutoScroll := FALSE;
5. так будет происходить, пока вы не зададите для главной формы главное меню  Альтернатива - вешать на саму форму сворачивающую кнопку.

Добавлено @ 18:48 
Guedda, я думаю, там и есть wsMaximized, и что это у автора очепютка. а я ещё я думаю, что у него стоит Position = poScreenCenter. именно в этом случае размер формы высчитывается корректно, с учётом высоты панели задач, а центрируется она - криво, залезая на эту самую панель задач. 

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

wsMaximized - разворачивает окно, но смещает немного вниз, передвинуть нельзя.

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

Добавлено @ 18:52 
Vladimir_K, чему равен Position? 

Извините, но я подумал, что эти вопросы достаточно тесно связаны, чтобы их можно было объединить под одной темой.

Я просто не успел - настолько быстро пришли ответы. Извиняюсь.

Это сообщение отредактировал(а) Vladimir_K - 13.12.2006, 19:05

так извинятся не за что, вам же хуже, если из-за  путаницы вам неправильно ответят ;)

wsMaximized в Win'98 работает нормально, пробовал в 'XP - там окно сдвинуто вниз.
Action := caFree; - помогло, спасибо.
Код выложу.

Vladimir_K, дубль три, чему равно свойство Position у главной формы?

wsMaximized нормально работает везде. и только если Position = poScreenCenter - то окно будет сдвинуто вниз на панель задач, причём передвинуть его будет невозможно. и это, в принципе, не глюк.

poDesktopCenter

Vladimir_K, если у вас один монитор - то это тоже самое  DesktopCenter означает, что форма находится в середине десктопа. если десктоп раздвинут на два (10) мониторов,  то форма ляжет в его центр. если монитор один, то и десктоп равен его экрану, т.е. Screen'у.

теперь смотрите. с одной стороны вы говорите форме WindowState = wsMaximized (что означает, что размер формы должен быть равен всему экрану, кроме панели задач - и форма это делает!), с другой стороны, вы говорите Position = poDesktopCenter (что заставляет форму центрироваться посередине экрана). а куда она может центрироваться? правильно, спуститься вниз, заехав ровно на половину "незанятой" панели задач.

проще всего просто отключить центрирование, т.е. поставить Position = poDesigned.

У главной формы установил AutoScroll := FALSE; не помогает - скролы появляются.

На главной форме пока всего одна кнопка.
Код:


Код дочерней формы:

Главная форма:

Action
ActiveControl
Align                               alNone
AlphaBlend                    False
AlphaBlendValue           255
Anchors                         [akLeft,akTop]
AutoScroll                      False
AutoSize                        False
BiDiMode                       bdLeftToRight
BorderIcons                   [biSystemMenu,biMinimize,biMaximize]
BorderStyle                    bsSizeable
BorderWidth                   0
Caption                          Myprog
ClientHeight                   471
ClientWidth                    647
Color                                   clBtnFace
Constraints                     (TSizeConstraints)
Ctl3D                              True
Cursor                            crDefault
DefaultMonitor               dmActiveForm
DockSite                        False
DragKind                        dkDrag
DragMode                      dmManual
Enabled                         True
Font                               (TFont)
FormStyle                       fsMDIForm
Height                            498
HelpContext                   0
HelpFile
HelpKeyword
HelpType                       htContext
Hint
HorzScrollBar                 (TControlScrollBar)
Icon                               (None)
KeyPreview                    False
Left                                363
Menu
Name                             Glavnaya
ObjectMenuItem
OldCreateOrder              False
ParentBiDiMode             True
ParentFont                     False
PixelsPerInch                 96
PopupMenu
Position                          poDesigned
PrintScale                      poProportional
Scaled                           True
ScreenSnap                   False
ShowHint                       False
SnapBuffer                     10
Tag                                0
Top                                104
TransparentColor           False
TransparentColorValue       clBlack
UseDockManager         False
VertScrollBar                  (TControlScrollBar)
Visible                            True
Width                             655
WindowMenu
WindowState                 wsMaximized

Дочерняя форма:

Action
ActiveControl
Align                               alNone
AlphaBlend                    False
AlphaBlendValue           255
Anchors                         [akLeft,akTop]
AutoScroll                      True
AutoSize                        False
BiDiMode                       bdLeftToRight
BorderIcons                   [biSystemMenu,biMinimize,biMaximize]
BorderStyle                    bsSizeable
BorderWidth                   0
Caption                          Гpaфики
ClientHeight                   306
ClientWidth                    688
Color                                   clBtnFace
Constraints                     (TSizeConstraints)
Ctl3D                              True
Cursor                            crDefault
DefaultMonitor               dmActiveForm
DockSite                        False
DragKind                        dkDrag
DragMode                      dmManual
Enabled                         True
Font                               (TFont)
FormStyle                       fsMDIChild
Height                            333
HelpContext                   0
HelpFile
HelpKeyword
HelpType                       htContext
Hint
HorzScrollBar                 (TControlScrollBar)
Icon                                None
KeyPreview                    False
Left                                199
Menu
Name                             Graph
ObjectMenuItem
OldCreateOrder              False
ParentBiDiMode             True
ParentFont                     False
PixelsPerInch                 96
PopupMenu
Position                          poDesktopCenter
PrintScale                      poProportional
Scaled                           True
ScreenSnap                   False
ShowHint                       False
SnapBuffer                     10
Tag                                0
Top                                246
TransparentColor           False
TransparentColorValue       clBlack
UseDockManager         False
VertScrollBar                  (TControlScrollBar)
Visible                            True
Width                             696
WindowMenu
WindowState                 wsNormal

Как отлавливать сообщения скроллов?
А отловив их, нужно как-то запрещать появление скроллов?

Это сообщение отредактировал(а) Vladimir_K - 14.12.2006, 08:25

Если развернуть полностью одно дочернее окно, то разворачиваются все. После этого пробую первое окно закрыть - закрывается, но остается следующее полностью развернутое окно. Непонятно.

Это такое свойство. Ничего здесь непонятного нет. Но эту проблему можно обойти, если тебе необходимо после закрытия сделать обычное окно, а не wsMaximized, то сделай так:

Еще один моментик: если свернуть все дочерние окна командой "Minimize All", то команды: "Cascade", "TileHorizontal", "TileVertically" не действуют, приходится вручную разворачивать окна, а потом уже использовать эти команды. Можно ли это исправить (чтобы, например, командой "Cascade" все окна из свернутого состояния разворачивались, и располагались каскадом)?

Модератор: Пожалуйста, один топик - один вопрос.

M Guedda

Устное предупреждение!

При закрытии дочернего окна вылазит ошибка:
Access violation at address 0046D9E6 in module 'PRead1.exe'. Read of address 0000022B.
Здесь PRead1 - имя моего проекта.

Значит ошибка не в этом, так как у меня всё нормально работает.

Я понял, но это ведь один вопрос "Проблема с fsMDIChild", а внутри уже подвопросы.  

Не идет у меня дело, хоть тресни!   
Правильно ли я открываю дочерние окна?:

Они открываются, но почему-то прозрачные...
В свойствах окон установки правильные (см. на 1стр.)?

Это сообщение отредактировал(а) Vladimir_K - 14.12.2006, 19:50

Посмотри на свойство AlphaBlend  и AlphaBlendValue. Если первое false, a второе 255, то я не знаю, что это, а если что-либо из вышеперечисленного не так, то сделай так.

AlphaBlend =  false
AlphaBlendValue = 255

Для чистоты эксперимента создал новое приложение - все то же самое...

Что делать?

Добавлено @ 20:26 
Полный код обоих окон:
Главная:


Дочерняя:


Это сообщение отредактировал(а) Vladimir_K - 14.12.2006, 20:22

Значит у тебя в настройках Дельфи что-то слетело. Попытайся переустановить Delphi. И, кстати, что у тебя за версия?
И покажи скриншот этих полупрозрачных форм... Очень интересно на них посмотреть...

Подскажите, как здесь выложить рисунки?

Выкладываешь файл на http://imageshack.us , и потом берешь ссылку, и кидаешь её сюда.

Добавлено @ 21:33 
Form2 - пустая форма, все элементы расположены на главной форме и просвечивают...


Это сообщение отредактировал(а) Vladimir_K - 14.12.2006, 21:35

Все-таки очень неудобно выкладывать здесь рисунки.
Второй рисунок отображается почему-то не полностью...

Да и не надо, чтобы он полностью отображался! Я теперь всё понял! Слушай! Родительская форма создана для того, чтобы размещать на себе TMainMenu, TPopupMenu, TTool и TCool Bars... И, конечно же, дочерние формы!
Но у тебя же главная форма содержит странные элементы, по типу Tedit, TMemo и так далее. 

Просто совет тебе:
Создай ещё одну форму (Form3), и покидай все эти контроллы туда! А главную форму оставь пустой! Максимум, кинь туда те вещи, которые я тебе выше описал.

А до меня пока не дошло...
А какую роль тогда будет выполнять главная форма, если на ней ничего не располагать?
Давайте по порядку. При запуске приложения первой открывается главная форма и... как дальше? Сделать ее невидимой? Запускать дочернюю Form2, которая будет выполнять роль "главной", и уже с нее остальные дочерние формы, столько сколько мне будет нужно?

Сегодня пробовал Delphi 8, там та же фигня, но 8-ая ресурсов компьютера ест не мало. Сейчас восстанавливаю 7-ую версию.

Еще. У меня на гл. форме есть и MainMenu и ToolBar... больше пока ничего не добавлял. Есть и кнопка, которая открывает дочерние окна. Окна только оказываются расположенными за элементами гл. формы!    Вопрос в том, как сделать, чтобы дочернее окно открывалось поверх главного! 
Неужели с таким эффектом никто никогда не сталкивался? Не может этого быть!    

Отвечаю на все твои вопросы сразу!
Главная форма служит контейнером для дочерних форм! Никак дочернюю форму нельзя поместить поверх главной! Выход следующий:
Делаешь на главной форме ToolBar и mainMenu. На ToolBar Делаешь ToolButton, который будет открывать Tform2. А если необходимо сделать на главной форме ещё и Edit, и прочие контроллы, то лучше создать ещё дочернюю форму TForm3, и туда добавить все контроллы. 

Сделал так. С главной формы убрал все кроме ToolBar и mainMenu. Добавил дочернюю Form3, которая запускается сразу после главной, и макимизируется. На ней разместил дублирующую кнопку вызова дочернего окна Form2 (Form2 можно также открывать с ToolBar). Form2 имеет свойство WindowState = wsNormal. Но при открытии этого окна оно сразу же максимизируется (как до этого Form3). Да еще если передвинуть дочернее окно за пределы главного - появляются полосы прокрутки на главной форме.
Вобщем все это не то!
Меня больше устраивает если дочернее окно Form2 имеет свойство FormStyle = fsNormal. Но есть несколько "но": 
1. если несколько раз открываю Form2, то отображается только одно окно, и чтобы добраться до остальных, надо уменьшить размер главной формы.
2. если Form2 свернуть, оно исчезает с главной формы, и приходится восстанавливать главную форму (уменьшать ее), чтобы увидеть, где это там спряталось свернутое окошко. Можно ли сделать, чтобы Form2 при сворачивании отображалась на главной форме?
3. как располагать дочерние окна каскадом и т.д. если спец. кнопки для этого не действуют?

Первые два вопроса решил задав главной форме свойство FormStyle = fsNormal, а дочерним: fsStayOnTop. Теперь все отображается, ничего не просвечивает, свернутые дочерние окна доступны, полос прокрутки нет!
А как быть с вопросом №3 = как располагать дочерние окна каскадом и т.д. если спец. кнопки для этого не действуют?