Главная » Статьи по Delphi » Мышь и курсор » Определить координаты курсора

Определить координаты курсора

Автор: Борисов Сергей

procedure TForm1.Button1Click(Sender: TObject);
var cur:TPoint;
begin
  Windows.GetCursorPos(Cur);
  ShowMessage('Координаты мыши: X='+IntToStr(cur.X)+'Y='+IntToStr(cur.Y));
end;

• Купить диван недорого

  Продажа мебели. Каталог сайтов.

  lyublino-mebel.ru

• Оцинкованный лист продажа

  Перечень продукции. Торговый дом - металлопродукция.

  orisgroup.ru

Просмотров: 4240

Обсудить на форуме

---

Имя *:
Email:
Все смайлы
Код *:

Copyright © 2008-2012 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта

Гостевая книга