Окна и фокус

[Никитка Б]

Всем доброго времени суток.
Имеется приложение. с Одной MDI формой, и другими дочерними окнами.
Вообщем то хочется сделать так чтобы одна из этих дочерних форм была 1. по верх всех остальных(SetWindowPos, на чтото ругается, видимо из-за того что она дочерняя и принадлежит MDI) , 2. чтобы только она была активной. тоесть приложене не должно влиять ни на что(кроме естественно самой MDI) активного дочернего окна.

[Konst_One]

тогда делай SDI-интерфейс. или как вариант клади на главное окно MDI PictureBox и используй его как контейнер для своего фонового окна, но оно всегда будет позади MDI-Child окошек.

[EUGY]

Перебором всех mdichild кроме выбранной установить их св-во Enabled=false.
И только одна единственная будет активной и поверх всех.

[Saturn.65]

Не знаю как с дочерними, а с обычными окнами работает.

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

Сделать вашу форм поверх всех       
   Добавьте 2 CommandButton (под именем Command1 и Command2). Когда вы нажимаете первую кнопку, ваша форма поверх всех
Private Declare Function SetWindowPos Lib "user32" (ByVal h%, ByVal hb%, ByVal x%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal F%) As Integer
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const flags = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

Private Sub Command1_Click()
res = SetWindowPos(Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, flags) 'Форма on-top
End Sub
Private Sub Command2_Click()
res = SetWindowPos(Form1.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, flags) 'Форма non-on-top
End Sub


[burik]

Saturn.65, автор же написал:

"..SetWindowPos, на чтото ругается.."

(см. выше)