Скачать: CL | DM;

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

← →
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;


---

← →
clickmaker ©   (2011-04-11 12:14) [6]

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

см. [2]

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.007 c