[Gravitas]

Как получить координаты какого-либо компонента относительно всего экрана, а не формы.

Код:

SetCurSorPos(Form1.Left + Button1.Left, Form1.Top + Button1.Top);

Это правда не получение координат, а установка курсора в левый серхний край, но разницы судя по всему нет. Можно конечно убрать границу формы, но она очень нужна. Как быть?

[M.A.D.M.A.N.]

Код:

ClientToScreen(...)

[NIch]

Ты все правильно написал, по такому же принципу и получаешь координаты объекта. Что тебя смущает?

Код:

X := Form1.Left + Button1.Left;
Y := Form1.Top + Button1.Top;

[Gravitas]

M.A.D.M.A.N., Thanks!

[Gravitas]

Сообщение от NIch

Ты все правильно написал, по такому же принципу и получаешь координаты объекта. Что тебя смущает?

Код:

X := Form1.Left + Button1.Left;
Y := Form1.Top + Button1.Top;

Выполните мой код и чуть-чуть подумайте, почему я создал топик.

[Gravitas]

Разобрался.

Код:

var
P: TPoint;
begin
P:=ClientToScreen(Point(Button1.Left, Button1.Top));
SetCursorPos(P.X, P.Y);
end;