Привязка формы к элементу другой

[Dummiel]

Как узнать координаты элемента на форме по отношению к координатам экрана?
Нужно, чтобы при клике на кнопке дочерней формы следующая форма выходила именно возле этой кнопки. Перед кликом пользователь может дочернюю форму и передвинуть.

А будете ругаться - будет то же, что и вчера!

[Sirik]

Можно через GetCursorPos:
узнаешь глобальные координаты мыши, и делаешь дочерней форме Top=Y, Left=X

[Sirik]

Вот я тут примерчик написал:
Код модуля:

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

Option Explicit

Type POINTAPI
  X As Long
  Y As Long
End Type

Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINTAPI) As Long




Код формы:

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

Option Explicit

Private Sub Command1_Click()
    Dim Koor As POINTAPI
    Dim Result As Long
   
    Result = GetCursorPos(Koor)
   
    Form2.Top = Koor.Y * 15
    Form2.Left = Koor.X * 15
   
    Form2.Show 1, Me
   
End Sub


Дочерняя форма (Form2) вызывается при нажатии кнопки Command1