Как отловить позицию курсора (|). X,Y

[Alex Cones]

Имею в виду не курсор стрелочку,
а такой: |



Появилась необходимость отловить его координаты относительно левого верхнего угла экрана. Возможно ли это? И как?

---
Не только например в аське, а в ворде, блокноте, в браузере, словом, где бы он не явился.

[Goodwin98]

GetCaretPos ? http://msdn.microsoft.com/en-us/libr...02(VS.85).aspx

[Alex Cones]

Мммм... Как -то не так
getCaretPos определяет от верхнего левого угла контрола, т.е. Если открыть одновременно два блокнота и в каждом открыть новый документ, то функция в обоих случаях вернет 1,1
---
Или как вариант искать позицию так, но перед этим поймать координаты левого верхнего угла контрола, который сейчас активен (в фокусе).

[Goodwin98]

GetFocus
GetWindowRect
?

[Alex Cones]

К сожалению GetWindowRect дает координаты всей формы, а не контрола типа Memo.

[DeKot]

Var p: TPoint;
              x,y: integer;

    GetCaretPos(p); // вернет координаты курсора в компоненте  "контрол"
    x:=p.X;
    y:= p.Y; //координаты на "контроле"

// для формы (экрана) :
XForm:= Edit1.Left + x;
YForm:= Edit1.Top + y:
Вместо Edit можно Memo. В общем смысл думаю понятен.

[Alex Cones]

XForm:= Edit1.Left + x;

Не подойдет, так как я ловлю позицию у чужих окон, а не только у своих.

[Alex Cones]

Помогло, (getFocus) спасибо, Goodwin!

[Goodwin98]

Пожалуйста. Ответьте теперь мне кто-нибудь в моей теме

[Alex Cones]

Возникла такая проблема:
У меня две формы. Первая всегда активна и висит как виджет из Висты, а вторая должна отловить позицию Каретки. Делаю так:

Var
P:TPoint;
H:THandle;
X,Y:SmallInt;
Re:TRect;
begin
 GetCaretPos(P);
 H:=GetFocus;
 getWindowRect(H,Re);
 X:=Re.Left;
 Y:=Re.Top;
 FRMCaret.Left:=X+P.X-13;
 FRMCaret.Top:=Y+P.Y+4;

Но форма FRMCaret висит около первой формы. Вторая - AlwaysOnTop, вторая -

SetWindowPos(handle, HWND_TOPMOST, 0,0,0,0,SWP_NOSIZE or SWP_NOMOVE);

Делал в отдельном приложении - позицию каретки отсчитывает прекрасно. Запхнул в этот проект - ноль.

Попробовал вставить такую строку после поиска хендла активного окошка:

If H = Application.Handle Then Beep;

и

If H = FRMMain.Handle Then Beep;

- НЕ пищит! Но координаты отсчитываются так, как будто я написал F

RMCaret.Left := FRMMain.Left - 13