Прилепить одну форму к другой.

[raut]

Есть две формы. Одна из них(номер один) порезана и имеет неправильную форму. нужно её прилепить к другой форме(номер два) так, чтобы форма номер два не перекрывала форму один, когда мы тычем в неё мышкой. как такое сделать?

зы поиск ничего не дал, хотя может плохо искал.

[Viper]

Одна из них(номер один) порезана и имеет неправильную форму.

Вот с этого места подробнее!

нужно её прилепить к другой форме(номер два) так, чтобы форма номер два не перекрывала форму один, когда мы тычем в неё мышкой.

В чего тычем мышкой? И собственно причем тут мышка?
Прилепание одной формы к другой - есть движение второй формы следом за первой. Это тебе надо? Для прямоугольных форм сие решается свойствами Left, Top, Width, Height и методом Move, в сочетании с перехватом события WM_MOVE.

[raut]

пусть будет просто форма(номир один) Style:none. за ней есть ещё одна форма(номир два). первая форма должна всё время быть перед формой два(и только перед ней) не зависимо от того, у какой из форм сейчас фокус. тоесть форма два, когда она активна, не должна перекрывать форму один.

[Alprog]

Эм... я так понял, тебе нужен вызов модальной формы.

Хотя, это зависит от того, что ты вкладываешь в понятие "перекрывать".

[raut]

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

две равноправные формы, нужно чтобы одна всегда была поверх другой(не поверх всех) не зависимо от того, где фокус.

[Atoman]

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

'in Form1

Dim frm As New Form2

Private Sub Form_Load()
frm.ShowInParent Me.hwnd
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload frm
End Sub

'in Form2

Private Const GWL_HWNDPARENT As Long = -8

Public Sub ShowInParent(ByVal Owner As Long)
SetWindowLong Me.hwnd, GWL_HWNDPARENT, Owner
Me.Show
End Sub