Форма поверх других форм.

[Hawk[BZ]]

Значит так... Допустим... Есть основная форма Form1 и второстепенная Form2. Как сделать так чтобы основная форма не закрывала второстепенную при нажатии на нее (Form1), т.е. чтобы Form2 всегда оставалось свреху, даже если кликнуть на первую форму или даже давить на ней на кнопки и воодить текст. И чтобы При сорачивании-разворачивании она опять оставалась сверху.

[@LLES]

Значит так... Допустим... Есть основная форма Form1 и второстепенная Form2. Как сделать так чтобы основная форма не закрывала второстепенную при нажатии на нее (Form1), т.е. чтобы Form2 всегда оставалось свреху, даже если кликнуть на первую форму или даже давить на ней на кнопки и воодить текст. И чтобы При сорачивании-разворачивании она опять оставалась сверху.

Насколько я знаю, есть несколько способов, но этот всегда действенный.

Declare Function SetWindowPos& Lib "user32" (ByVal hwnd&, ByVal WndInsertAfter&, ByVal x&, ByVal y&, ByVal cx&, ByVal cy&, ByVal wFlags&)


Public Const SWP_SHOWWINDOW = &H40
Public Const HWND_TOPMOST = -1


В процедуре событий Resize прописываешь


SetWindowPos Form2.hwnd, HWND_TOPMOST, Left / Screen.TwipsPerPixelX, Top / Screen.TwipsPerPixelY, Width / Screen.TwipsPerPixelX, Height / Screen.TwipsPerPixelY SWP_SHOWWINDOW

Потом считаешь координаты и все красиво в функцию.(она их ждет) :) Удачи.
Алексей.

[Sirik]

Я напишу как сделать, чтобы вторая форма была всегда сверху первой.
За исключением, когда фома сворачивается:

Пусть певая это Form1, вторая - Form2.
На первой сощдай кнопку и её код:

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

[color=green]Private Sub Command1_Click()
  Form2.Show 2, Me
End Sub[/color]

И всё, без там всяких API функций.
А если хоч, чтобы твоя форма была вобще поверх всех форм, то по ищи в нете.

[Amed]

А если хоч, чтобы твоя форма была вобще поверх всех форм, то по ищи в нете.

Зачем в инете? Просто посмотрите в эту тему:
http://bbs.vbstreets.ru/viewtopic.php?t=5737

[X-BOND]

Зачем в инете? Просто посмотрите в эту тему:
http://bbs.vbstreets.ru/viewtopic.php?t=5737

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

[Rainbow]

Form2.Show 2, Me

Вообще-то, чтобы не вводить программеров в заблуждение всякими цифрами совершенно непригодными для запоминания, разработчики VB придумали специальные константы - например, vbModal и vbModeless. И, к слову сказать, vbModal = 1. Вызов "Form2.Show 2, Me" будет ругаться на неправильный аргумент...
Правильный вызов выглядит

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

Form2.Show vbModal, Me

Второй параметр в данном случае можно опустить.

Форма, которая держит на себе фокус и не пускает на другие формы нзывается, соответствено, модальной (Modal)