Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.05.2016, 18:24   #1
zvygin1964
Старожил
 
Аватар для zvygin1964
 
Регистрация: 19.06.2013
Сообщений: 2,463
По умолчанию Координаты курсора.

В Delphi 7 это:
Код:
var 
E: Tpoint;

begin
      E:=ScreenToClient(Form1.FDesignSize);
      X_rotation:=Mouse.CursorPos.Y+E.X
      Y_rotation:=Mouse.CursorPos.Y+E.Y
     
end;
В Lazarus это похоже на что ? :
Код:
var
  E: TPoint;
 
begin
	GetCursorPos(E);
end;
"GetCursorPos(E);"-, это то, что мне надо ?
Репутация: полный "0"

Последний раз редактировалось zvygin1964; 24.05.2016 в 18:42.
zvygin1964 вне форума Ответить с цитированием
Старый 24.05.2016, 21:16   #2
zvygin1964
Старожил
 
Аватар для zvygin1964
 
Регистрация: 19.06.2013
Сообщений: 2,463
По умолчанию

Нашел:
Код:
Procedure TForm1.FormClick(Sender: TObject);
Begin
  Caption := Format('Global(%d, %d); Form(%d, %d);',
    [Mouse.CursorPos.X, Mouse.CursorPos.Y,
    Mouse.CursorPos.X - Left, Mouse.CursorPos.Y - Top]);
end;
или
Код:
uses mouse;

var X, Y:word;
...
X:=GetMouseX;
Y:=GetMouseY;
...
но с :
uses WinMouse,
Репутация: полный "0"

Последний раз редактировалось zvygin1964; 24.05.2016 в 21:20.
zvygin1964 вне форума Ответить с цитированием
Старый 04.07.2016, 12:49   #3
zvygin1964
Старожил
 
Аватар для zvygin1964
 
Регистрация: 19.06.2013
Сообщений: 2,463
По умолчанию

И даже вообще ничего не надо и всё получается:
Код:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  caption:= 'X:'+IntToStr(x) +' Y:'+ IntToStr(y);
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 caption:= 'X:'+IntToStr(x) +' Y:'+ IntToStr(y);
end;
Репутация: полный "0"
zvygin1964 вне форума Ответить с цитированием
Старый 04.07.2016, 12:56   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Ну смотря относительно чего координаты
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Координаты курсора в IE masashama JavaScript, Ajax 3 28.04.2012 16:26
Координаты мыши(курсора) Prizrak86 C# (си шарп) 2 30.01.2012 15:35
Координаты курсора WINAPI konstahntin Помощь студентам 0 14.05.2011 09:58
RichEdit Координаты Курсора nusik Общие вопросы Delphi 5 25.04.2009 23:24
Координаты курсора Haster Win Api 8 06.08.2007 12:04