Как можно отслеживать изменения вида курсора?

← →
worldmen (2011-04-09 12:10) [0]

Я перемещаю курсор программно и мне нужно определить, что курсор находится над текстовым полем в другой проге. При этом курсор изменяет свой вид. Или можно как-то по другому?

← →
worldmen (2011-04-09 14:03) [1]

Написал такой код, а он выводит только значение C=0 (т.е. crDefault), при этом курсор был в виде crSizeNESW - изменение размера. Что не так?
Var C : TCursor; begin C:= Screen.Cursor; case C of crDefault : Memo1.Lines.Add(" обычно стрелка"); crArrow : Memo1.Lines.Add(" стрелка "); crCross : Memo1.Lines.Add(" плюсик "); crIBeam : Memo1.Lines.Add(" текст "); crSizeNESW : Memo1.Lines.Add(" изменение размера "); crSizeNS : Memo1.Lines.Add(" изменение размера "); crSizeNWSE : Memo1.Lines.Add(" изменение размера"); end

← →
clickmaker © (2011-04-09 15:22) [2]

> нужно определить, что курсор находится над текстовым полем
> в другой проге

GetCursorPos + WindowFromPoint

← →
worldmen (2011-04-11 08:46) [3]

Непонимаю, как я определю, что курсор изменился на текстовый с этими функциями?
function WindowFromPoint(Point: TPoint): HWnd; - Опpеделяет окно, содеpжащее указанную точку.
function GetCursorPos(var Point: TPoint); - Считывает экpанные кооpдинаты текущего положения куpсоpа.

← →
clickmaker © (2011-04-11 11:09) [4]

> как я определю, что курсор изменился на текстовый

GetCursorInfo ?

← →
worldmen (2011-04-11 12:13) [5]

Это и все что получается оттуда вытянуть, но как определить что он над формой для ввода текста?
procedure TForm1.Timer2Timer(Sender: TObject); var CI: TCursorInfo; begin CI.cbSize := SizeOf(CI); GetCursorInfo(CI); Image1.Picture.Icon.Handle := CI.hCursor; //вид курсора Label1.Caption:=IntToStr(Ci.hCursor); //номер курсора Label2.Caption:="X="+IntToStr( CI.ptScreenPos.X); Label3.Caption:="Y="+IntToStr( CI.ptScreenPos.Y); end;

> как определить что он над формой для ввода текста?

см. [2]

Как можно отслеживать изменения вида курсора? Найти похожие ветки