Приветствую Вас ГостьСуббота, 08.08.2020, 04:53

WORLD of DELPHI


Мир кода

Главная » Статьи » Мир кода

Кординаты грызуна

Все очень просто.

Создаем переменную (у нас это будет cord) типа TPoint

var cord : TPoint; 

Дальше даем переменной кординаты

Windows.GetCursorPos(cord);

Теперь мы имеем две переменые типа Integer: cord.X и cord.Y. Это и есть кординаты курсора по оси X и Y

Вот пример :



var
Form1: TForm1;
cord:TPoint;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Default:=true;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
Windows.GetCursorPos(cord);
ShowMessage('Координаты грызуна по оси X='+IntToStr(cord.X)+' и Y='+IntToStr(cord.Y));
end;


При нажатие на Enter будет возникать сообщение с кординатами


Что бы поменять кординаты (то есть переместить курсор программно), надо использовать функцию

function SetCursorPos(X, Y: Integer): BOOL;

и задавать кординаты с помощью команды:

SetCursorPos(ось X, ось Y);

Вот и все




Категория: Мир кода | Добавил: Arcanis (12.08.2010)
Просмотров: 652 | Теги: Статьи, Координаты курсора | Рейтинг: 5.0/1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Главное меню
Разное
Форма входа
Категории раздела
Мир кода [4]
Примеры программ, статьи и др.
Опрос
Сайт удобный?
Всего ответов: 12
Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0
Найти
Облако тегов
Друзья
Чат
200