Set Cursor

[darkich]

Уважаемые помогите плиз - мне что то не допетрить...

надо сделать чтоб курсор (мыша) помещался в опредёлнное место на форме
над нужным мне объектом независимо от положения формы на экране
и разрешения - умею добывать положения курсора и присваивать - мнеб
построить грамотную функцию чтоб получала разрешение экрана (умею)
и положение формы на экране (то же ясно) - вобщем надо что независимо
от положения формы при нажати например конопы курсор записала над одним
из объектов формы (постоянным) - какбы подраздобыть координат? то?
хэлп ми плиз...

в принципе можно сделать кучу if то сё но очень бы не хотелось - криво это както...

[Cyrax]

ну можно так
x = Form1.Left + ((Form.Width - Form.ScaleWidth) \ 2) + control.Left
y = Form1.Top + ((Form1.Height - Form1.ScaleHeight) - ((Form.Width - Form.ScaleWidth) \ 2)) + control.Top
это будут координаты левого верхнего угла контрола относительно экрана
((Form.Width - Form.ScaleWidth) \ 2) - ширина бордюра формы
((Form1.Height - Form1.ScaleHeight) - ((Form.Width - Form.ScaleWidth) \ 2)) - высота заголовка формы
для перевода в пиксели используй Screen.TwipsPerPixelX и Screen.TwipsPerPixelY соответственно
эти формулы не зависят от разрешения экрана

[darkich]

Огроменное спасибо!!!!

[jetcom]

2Cyrax:
А как бы тоже самое проделать для VBA?......
Или......никак???

[Cyrax]

2Cyrax:
А как бы тоже самое проделать для VBA?......
Или......никак???

можно попробовать вместо свойств ScaleWidth и ScaleHeight формы использовать свойства ScrollWidth и ScrollHeight