![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 25.12.2006
Сообщений: 64
|
![]()
Как сделать так, чтобы при перемещении курсора по PaintBox определялись X и Y координаты курсора?
Использую такую процедуру: procedure TGraph.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin LX.Caption:=Inttostr(Mouse.CursorPo s.X); LY.Caption:=Inttostr(Mouse.CursorPo s.Y); end; но координаты зависят от положения окна приложения, на котором расположен PaintBox относительно границ самого монитора. Если окно имеет небольшие размеры и расположено посередине Desktop, X-координата начинается, например со 148, а если сдвинуть окно влево, так, чтобы его граница вышла за пределы Desktop - то с 0. А как сделать, чтобы X-координата всегда начиналась с 0, независимо от того, какого размера окно приложения, и где это окно расположено? |
![]() |
![]() |
![]() |
#2 |
Пользователь
Регистрация: 29.12.2006
Сообщений: 11
|
![]()
Попробуй так:
procedure TGraph.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin LX.Caption:=Inttostr(Mouse.CursorPo s.X-form1.left-3); LY.Caption:=Inttostr(Mouse.CursorPo s.Y-form1.top-30); end; Числа 3 и 30 зависят от BorderStyle формы.
БОГ ЕСТЬ СОВЕСТЬ...
Последний раз редактировалось MaGiCeYe; 03.01.2007 в 21:11. |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 25.12.2006
Сообщений: 64
|
![]()
Вот подсказали:
LX.Caption:=Inttostr(X); LY.Caption:=Inttostr(Y); Но, все-равно спасибо за помощь! Последний раз редактировалось zetrix; 04.01.2007 в 10:42. |
![]() |
![]() |
![]() |
#4 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
![]()
Правильно подсказали:
procedure TGraph.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin LX.Caption:=Inttostr(X); LY.Caption:=Inttostr(Y); end; Выделенные числа и надо использовать, они и показывают координаты курсора относительно самого объекта. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
bmp и paintbox, использование шрифта? | PONKA | Общие вопросы Delphi | 10 | 14.05.2008 16:47 |
Система координат | SunKnight | Общие вопросы Delphi | 2 | 05.02.2008 19:42 |
paintbox | steck | Общие вопросы Delphi | 5 | 28.10.2007 16:15 |