Показать сообщение отдельно
  #2  
Старый 16.09.2009, 21:34
Аватар для -sanya-
-sanya- -sanya- вне форума
Новичок
 
Регистрация: 14.04.2009
Сообщения: 64
Репутация: 20
Смущение

может я тебя неправильно понял

------------------
заставить курсор мыши перейти на координаты x400 y300
SetCursorPos(400,300);
--------------------
--------------------
УЗНАЕТ КООРДИНАТЫ КУРСОРА ДАЖЕ ЕСЛИ ОН НЕ НАХОДИТСЯ
В ЗОНЕ ПРОГРАММЫ, ТОИСТЬ (ЭТА КОММАНДА УЗНАЕТ КООРДИНАТЫ МЫШИ ДАЖЕ ЕСЛИ
ФОРМА НЕ АКТИВНА (СВЕРНУТА))
var
point: Tpoint;
begin
GetCursorPos(point);
button1.Top:=point.y;
button1.Left:=point.x;
end;
--------------------
(И МОЖЕТ ЭТО ТЕБЕ ПРИГОДИТСЯ )
--------------------
НАЖАТЬ НА ЛЕВУЮ КНОПКУ МЫШКИ

Mouse_event(MOUSEEVENTF_LEFTDOWN, mouse.CursorPos.X, Mouse.CursorPos.Y, 0, 0);Mouse_event(MOUSEEVENTF_LEFTUP, mouse.CursorPos.X, Mouse.CursorPos.Y, 0, 0);
---------------------
---------------------
НАЖАТЬ НА ПРАВУЮ КНОПКУ МЫШКИ

Mouse_event(MOUSEEVENTF_RIGHTDOWN, mouse.CursorPos.X, Mouse.CursorPos.Y, 0, 0);Mouse_event(MOUSEEVENTF_RIGHTUP, mouse.CursorPos.X, Mouse.CursorPos.Y, 0, 0);
---------------------
---------------------
НАЖАТЬ НА КОЛЕСИКО МЫШКИ

Mouse_event(MOUSEEVENTF_MIDDLEDOWN, mouse.CursorPos.X, Mouse.CursorPos.Y, 0, 0);Mouse_event(MOUSEEVENTF_MIDDLEUP, mouse.CursorPos.X, Mouse.CursorPos.Y, 0, 0);
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
__________________
Ответить с цитированием