Нужен контрол - "Форма"

[jangle]

Подскажите, может кто видел. Нужен контрол, которой полностью симулирует стандартную VB форму. И при этом является контейнером для других VB контролов.

[EUGY]

Не то чтобы прямо один-в-один, но близко к теме:

http://www.freevbcode.com/ShowCode.asp?ID=4349

[jangle]

Близко, но не совсем )) Мне нужно, чтобы на форме лежала вторая форма, а не контролы как в этом примере. И чтобы можно было изменять ее размеры и т.д.

[Amed]

А чем не подходит SetParent второй формы "внутрь" первой?
Функциональность будет полная.

[jangle]

А можно пример кода?

[Lumen]

Делаешь в проекте две формы, в коде первой из них пишешь:

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

Private Declare Function SetParent Lib "user32.dll" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub Form_Load()
Form2.Show
SetParent Form2.hWnd, Form1.hWnd
End Sub


[jangle]

Lumen - спасибо!

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

[Andrey Fedorov]

Подскажите, может кто видел. Нужен контрол, которой полностью симулирует стандартную VB форму. И при этом является контейнером для других VB контролов.

Что-то у меня большое подозрение что это называется UserControl...

[jangle]

Чтобы было понятнее, вот пример. Надо сделать так, чтобы Form2 нельзя было перемещать за кепшон по Form1, а только изменять ее размеры растягивая за правый край.

[keks-n]

Сабклассить на предмет WM_WINDOWPOSCHANGING.

[alibek]

Вообще-то у формы есть еще свойство Moveable.

[jangle]

Вообще-то у формы есть еще свойство Moveable.

Спасибо! То что нужно.

Того-же результата добился на API, прибив пункт системного меню: Переместить.

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

Option Explicit

Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Const SC_MOVE = &HF010
Const MF_BYCOMMAND = &H0

Private Sub Form_Load()
  DeleteMenu GetSystemMenu(Me.hwnd, 0), SC_MOVE, MF_BYCOMMAND
End Sub