|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Координаты кнопки относительно экрана
Как получить координаты какого-либо компонента относительно всего экрана, а не формы.
Код:
SetCurSorPos(Form1.Left + Button1.Left, Form1.Top + Button1.Top); Gravitas |
#2
|
||||
|
||||
Код:
ClientToScreen(...) — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
||||
|
||||
Ты все правильно написал, по такому же принципу и получаешь координаты объекта. Что тебя смущает?
Код:
X := Form1.Left + Button1.Left; Y := Form1.Top + Button1.Top; В начале был Бит, потом Байт и только потом появилось Слово... |
#4
|
||||
|
||||
M.A.D.M.A.N., Thanks!
Gravitas |
#5
|
||||
|
||||
Цитата:
Gravitas |
#6
|
||||
|
||||
Разобрался.
Код:
var P: TPoint; begin P:=ClientToScreen(Point(Button1.Left, Button1.Top)); SetCursorPos(P.X, P.Y); end; Gravitas Последний раз редактировалось Gravitas, 30.08.2011 в 21:57. |