Добавить в закладки
Поиск
 
 

Результаты :
 


Rechercher Расширенный поиск

Вход

Забыли пароль?

Последние темы
Счетчики
Rambler's Top100
Все файлы, находящиеся на сайте, были найдены в сети Интернет как свободно распространяемые и добавлены исключительно в ознакомительных целях.
Перепечатка материалов (в любом виде) с данного сайта без письменного разрешения администратора запрещена.
Copyright ©2010-2011 Mine.ChudoForum.Ru - Все права защищены

Как программно двигать курсор мышки

Предыдущая тема Следующая тема Перейти вниз

Как программно двигать курсор мышки

Сообщение автор den в Чт Апр 21 2011, 14:15

Следующий пример показывает, как "подтолкнуть мышку"
без вмешательства пользователя.

procedure TForm1.Button1Click(Sender: TObject);
var
pt : TPoint;
begin
Application.ProcessMessages;
Screen.Cursor := CrHourglass;
GetCursorPos(pt);
SetCursorPos(pt.x + 1, pt.y + 1);
Application.ProcessMessages;
SetCursorPos(pt.x - 1, pt.y - 1);
end;
avatar
den
Модератор
Модератор

Сообщения : 36
Благодарности : 11

Посмотреть профиль http://mine.chudoforum.ru

Вернуться к началу Перейти вниз

Как узнать текущие координаты мышки

Сообщение автор den в Чт Апр 21 2011, 14:23

Для этого можно воспользоваться API функцией GetCursorPos. Передав в эту
функцию TPoint, мы получим текущие координаты курсора. Следующий код показывает,
как получить значения координат курсора по нажатию кнопки.

procedure Form1.Button1Click(Sender: TObject);
var
foo: TPoint;
begin
GetCursorPos(foo)
ShowMessage( '(' + IntToStr(foo.X) + ' ,' + IntToStr( foo.Y ) + ')' );
end;
avatar
den
Модератор
Модератор

Сообщения : 36
Благодарности : 11

Посмотреть профиль http://mine.chudoforum.ru

Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения