Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.07.17;
Скачать: 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 вся ветка

Текущий архив: 2011.07.17;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.011 c
15-1300669083
Германн
2011-03-21 03:58
2011.07.17
Ищу что-то типа SVN, но не для разработчиков, а для тестировщиков


2-1301928036
novichek
2011-04-04 18:40
2011.07.17
ADO поле Int64


15-1301862593
Юрий
2011-04-04 00:29
2011.07.17
С днем рождения ! 4 апреля 2011 понедельник


6-1239951140
Mulber
2009-04-17 10:52
2011.07.17
Как отслеживать траффик (протокол SMTP)?


2-1302078988
parasolka
2011-04-06 12:36
2011.07.17
Запись элементов в динамический массив.