Подчиненная форма закрывает остальные

[sergey-911]

Доброго времени суток уважаемые, с наступившим Новым годом 2007 Вас!

Столкнулся с проблемой. Есть MDI форма. Открываю в ней подчиненные Form1 и Form2. Как сделать, чтобы Form1 была всегда наверху?

P.S. В топике http://bbs.vbstreets.ru/viewtopic.php?t=3223 описан пример, как это реализовать в обычных (не MDI формах).

[Хакер]

Установить свойсто MDIChild в True

[GSerg]

И чем это поможет?

[schalexey]

sergey-911 а чем способ плох:

Код: Выделить всё

Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long

Private Sub Command1_Click()
SetWindowPos me.hwnd, -1, 0, 0, 200, 200, 0
'Устанавливает форму поверх всех окон, а также перемещает её в 'указанные координаты и задаёт указанный размер (200 на 200 пикселей)
End Sub

Так же и для простых окон работает.

[sergey-911]

Нет уважаемые. Оба способа не работают в MDI проекте. С обычными формами - всё нормально. С чилдреновскими - не пашет. Прикрепляю простенький пример MDI проекта, для Вашего удобства.

[Хакер]

А может просто сделать одну форму owner-ом другой? Хотя это сделает лишние ненужные тебе возможности.

[sergey-911]

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

Код: Выделить всё

Me.Show vbModal


при работе с обычными формами.

[sergey-911]

А что даст

Код: Выделить всё

owner


?
Попробовал, эфеект накакой.

[Хакер]

Ан нет. Овнером стать не получается.

[GSerg]

IMDIPseudoParent.cls

Код: Выделить всё

Option Explicit

Public Sub RiseAndShine()
End Sub

Public Sub ShutDown()
End Sub

Form1

Код: Выделить всё


...
Implements IMDIPseudoParent
...

Public Sub ShowModal()
  Dim f As Form2

  Set f = New Form2
  Set f.MDIParent = Me
 
  Me.Enabled = False

  f.Show
End Sub


Private Sub IMDIPseudoParent_RiseAndShine()
  ...
 
  Me.Enabled = True
  Me.SetFocus

  ... 
End Sub

Private Sub IMDIPseudoParent_ShutDown()
  'N/a
End Sub

Form2

Код: Выделить всё


...

Private mMDIParent As IMDIPseudoParent

Public Property Set MDIParent(ByVal p As IMDIPseudoParent)
  Set mMDIParent = p
End Property


Private Sub Form_Unload(Cancel As Integer)
  ...
 
  If Not mMDIParent Is Nothing Then mMDIParent.RiseAndShine
 
  ...
End Sub

[sergey-911]

и я говорю, не получается

[schalexey]

Самый глупый наверно способ
Поставить на форму таймер выставить интервал 100 и в событии таймера писать

Код: Выделить всё

me.zorder 0


[tyomitch]

Ой, а как здорово получится, если таких форм будет две...

[Хакер]

schalexey
Глупость... Уж тогда писать пользователю "Не кликай на то окно, что под этим"

[sergey-911]

Спасибо GSerg за помощь.
Никак не получается разобраться...
Извини за назойливость. Не мог бы на примере выложить с небольшими комментариями...?
Для чего класс

Код: Выделить всё


Option Explicit

Public Sub RiseAndShine()
End Sub

Public Sub ShutDown()
End Sub


?

[GSerg]

Для того, что потом Implements IMDIPseudoParent

[sergey-911]

GSerg
Вроде принцип я понял. Дочерняя фрма открывается активной, у другой свойство "Enabled" меняется на "False". Но форм-то не две, а гораздо больше в реальном проекте. Да не известно, какие из них открыты, а какие нет. Всем свойство "Enabled" меняеть на "False" не так-то удобно.

[sergey-911]

Есть более элегантный способ. Я его видел 2 года назад на каком-то из форумов. Реализован на API, кода было - немало. Но я на тот момент не придал примеру значение за ненадобностью, а сейчас найти не могу...

[GSerg]

Если тебе надо заблокировать доступ ко всем, сделай ту форму не-MDIChild.

[sergey-911]

GSerg
Всё-равно не понимаю, зачем класс, в котором две пустые процедуры, может я что не понимаю? Пришли плиз исходник, как это должно работать, если не так трудно.

[GSerg]

Это не класс, а интерфейс. Который потом реализует форма.

Исходник написан полный, вместе с примером вызова.

А ты просто сделай одну форму не-MDIChild...

[sergey-911]

GSerg

Исходник написан полный, вместе с примером вызова.

А где исходник то?

А ты просто сделай одну форму не-MDIChild...

Не, все формы делаю в одном MDI окне. Так эстетичней. Зачем пользователя раздражать кучей всплывающих модальных форм. Ну это моё мнение, у каждого, на этот счёт может быть своё. Например, так в 1С реализовано. При редактировани данных в форме с таблицей, открывается не модальная, а чилдреновская форма. При этом всё хорошо, но пользователь может вернуться в редактируемую форму и накосячить в ней, удалив редактируемые данные, а потом вернуться в форму для редактирования данных и попытаться продолжить модификацию. При этом могут возникнуть косяки в БД, в зависимости от её структуры.
Чтобы избежать этого приходится кучу лишнего кода, проверяющего наличие данных в БД, в момент сохранения, обрабатывать ошибки...
Вот я и решил, что лучше при этом открывать чилддреновскую форму, которая будет всегда наверху, в то же время форма будет не модальной и не будет отличаться от других...

[sergey-911]

Вот, нашел пример, про который говорил
http://jetprograms.narod.ru/program/download/mdi_lookup_position.zip
, немного под себя переделал. Результат выкладываю... Но всё-равно, мне этот вариант не нравится...
Всем спасибо за помощь и с наступающим Рождеством!
Тема до конца не исчерпана...

[GSerg]

Исходник-то в тексте ответа.

Ты определись, что тебе надо.
Если чтобы при работе с одной из форм нельзя было вернуться ко всем остальным, сделай только её не-MDIChild.
Если чтобы нельзя было вернуться к породившей форме, см. код.

[sergey-911]

Хотелось бы, конечно, чтобы нельзя было вернуться ко всем остальным. Но делая её не MDIChild, форма выходит из основного MDI - главного окна. А мне бы этого не хотелось!

[tyomitch]

А пусть будет дочерняя, но не MDIChild

[sergey-911]

tyomitch

А пусть будет дочерняя, но не MDIChild

Это как?

[tyomitch]

Добавь к стилю WS_CHILD

[sergey-911]

tyomitch
Не доганяю. Можно по-подробнее!

[sergey-911]

Доброго времени суток GSerg.
Помоги плиз разобраться с примером, присланным тобою (см. выше). Как не пытался - ошибки. Делаю не так. Сделай плиз работающий исходник. Извини за наглость...