Статьи по Делфи
Меню сайта


Категории каталога
Мои статьи [2]
Функции и процедуры Win Api [20]
Работа с мышью [10]
Реестр и Делфи [11]
Работа с файлами [38]
Делфи и Хакер [10]
Инсталлятор собственными руками [6]
Хитрости в делфи [3]
Работа с системой [19]


Форма входа


Поиск по каталогу


Друзья сайта


Наш опрос
Понравились ли вам треки
Всего ответов: 156


Приветствую Вас, Гость · RSS 2020-09-19, 9:52 PM
Начало » Статьи » Работа с мышью

Как получить координаты указателя мыши относительно формы в Дельфи
Существует такой тип, как TMouse, который передаёт координаты мышки в любое время. Поместите в обработчик события нажатия мыши на форме его вызов.

procedure TForm1.FormClick(Sender: TObject);

var

MyMouse: TMouse;

begin

Form1.Caption := inttostr(MyMouse.CursorPos.x) + 'Х ' +

inttostr(MyMouse.CursorPos.y);

end;

Категория: Работа с мышью | Добавил: Admin (2006-12-17) | Автор: delphi
Просмотров: 12135 | Комментарии: 6 | Рейтинг: 5.0 |

Всего комментариев: 5
0
5 Kenet   [Материал]
Merlin спасибо большое за этот код! Я все ломал голову, как сделать относительно формы! )

0
4 Merlin   [Материал]
Кусок кода Вам в руки:
var
pos2: TPoint;
begin
GetCursorPos(pos2); // координаты относительно экрана
pos2:=ScreenToClient(pos2); // координаты относительно клиентской формы
Image1.Left:= pos2.x; // для примера перемещаем картинку под курсор
Image1.Top := pos2.y;
end;

0
3 Ergo Proxy   [Материал]
если на конкретном обьекте то
Zon.X:=MyMouse.CursorPos.X-Form1.Left-5-обьект.Left;
Zon.Y:=MyMouse.CursorPos.Y-Form1.Top-51обьект.Top;

а на форме так и росто ,Left; и .Top; пакатят :)


0
2 TIT   [Материал]
Для того чтобы координаты были относительно формы надо добавить ещё вот такое

...
var
Zon:TPoint;
...
begin
...
Zon.X:=MyMouse.CursorPos.X-Form1.Left-5;
Zon.Y:=MyMouse.CursorPos.Y-Form1.Top-51;
...
end;

где 5 - ширина левой границы формы а 51 - высота заголовка формы.


0
1 TIT   [Материал]
Эта программа даёт координаты не относительно формы а относительно всего экрана!

Имя *:
Email *:
Код *: