Горячие клавиши для позиций курсора

@Z3oM · Регистрация: 10.04.2010

Студворк — интернет-сервис помощи студентам

Доброго времени суток! Не нашел ничего полезного в Тырнете! Значит снова раздаю плюсики одарённым людям за помощь! Дорогие дамы и господа! Подскажите как сделать чтобы по Клику Клавиши или сочетанию клавиш у меня записывалась в Переменную координата положения курсора? Заранее благодарствую!

@igoriy · 28.07.2011, 18:38

Delphi

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
 a,b: integer;
 p: TPoint;
begin
  p:=GetCursorPos ;
  a:= p.X;
  b:= p.Y;
  Form1.Caption:= 'x= '+ InttoStr(a)+ '  y= '+InttoStr(b);
end;

@Z3oM · 28.07.2011, 18:42 **[ТС]**

Сообщение от igoriy

Delphi

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
 a,b: integer;
 p: TPoint;
begin
[U]p:=GetCursorPos ;[/U]
  a:= p.X;
  b:= p.Y;
  Form1.Caption:= 'x= '+ InttoStr(a)+ '  y= '+InttoStr(b);
end;

[DCC Error] Unit2.pas(65): E2035 Not enough actual parameters

p:=GetCursorPos
Ругается на то что выше красным

Я с курсорами первый раз работаю так что простите за глупые ошибки

@igoriy · 28.07.2011, 18:44

наврал я потому что

Delphi

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
 a,b: integer;
 p: TPoint;
begin
  GetCursorPos(p) ;
  a:= p.X;
  b:= p.Y;
  Form1.Caption:= 'x= '+ InttoStr(a)+ '  y= '+InttoStr(b);
end;

@Z3oM · 28.07.2011, 18:48 **[ТС]**

Я видимо криворукий +) Не пашет! Нажимаю любую клавишу ваще не фурычит =)

@igoriy · 28.07.2011, 18:51

вот у меня

@Z3oM · 28.07.2011, 18:55 **[ТС]**

Сек щас попробую по другому

А может быть потому что у меня на форме присутствуют Другие компоненты в которых можно печатать? Ну такие как Эдит? Поставил совместимость с ХР одинаково приятно

Добавлено через 2 минуты
Да именно по этой причине! =) Проблема решена! Спасибо + уже красуется у тебя в репутации =)

@igoriy · 28.07.2011, 20:48

Delphi

procedure TForm1.Timer1Timer(Sender: TObject);
var
 p: TPoint;
begin
if GetAsyncKeyState ($49)<>0 then // если нажата клавиша "I"
begin
 GetCursorPos(p); // получить координаты курсора
 SetCursorPos(p.X,p.y);
 Mouse_Event(MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN, p.X, p.Y,0,0);
 Mouse_Event(MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTUP, p.X, p.Y,0,0);
 
end;
end;

Добавлено через 47 секунд
Чет еле на форум зашел и последнее время очень часто - ошибка сети

Добавлено через 5 минут
только не пойму смысла находить координаты если клик происходит какраз в том месте где курсор в данный момент

@Z3oM · 28.07.2011, 22:13 **[ТС]**

Предмет в игре нужно передвинуть в отдельную ячейку ) Для Этого =) Спасибо тебе ещё раз =)

@igoriy · 29.07.2011, 20:03

Суть - я не играю . Поэтому не знаю как это происходит в играх.

@Z3oM · 31.07.2011, 14:40 **[ТС]**

не важно в играх это или нет =) важно что нужно неважно какой та объект переместить в другое дочерние окно другой программы.

@Z3oM 250 / 71 / 18 Регистрация: 10.04.2010 Сообщений: 532 Записей в блоге: 3
		1
	Горячие клавиши для позиций курсора 28.07.2011, 18:18. Показов 1266. Ответов 10 Метки нет (Все метки) Доброго времени суток! Не нашел ничего полезного в Тырнете! Значит снова раздаю плюсики одарённым людям за помощь! Дорогие дамы и господа! Подскажите как сделать чтобы по Клику Клавиши или сочетанию клавиш у меня записывалась в Переменную координата положения курсора? Заранее благодарствую! 0

@Z3oM 250 / 71 / 18 Регистрация: 10.04.2010 Сообщений: 532 Записей в блоге: 3
	28.07.2011, 18:48 [ТС]	5
	Я видимо криворукий +) Не пашет! Нажимаю любую клавишу ваще не фурычит =) 0

@igoriy 873 / 544 / 117 Регистрация: 24.11.2009 Сообщений: 1,329
	28.07.2011, 18:51	6
	вот у меня Миниатюры 1

@Z3oM 250 / 71 / 18 Регистрация: 10.04.2010 Сообщений: 532 Записей в блоге: 3
	28.07.2011, 18:55 [ТС]	7
	Сек щас попробую по другому А может быть потому что у меня на форме присутствуют Другие компоненты в которых можно печатать? Ну такие как Эдит? Поставил совместимость с ХР одинаково приятно Добавлено через 2 минуты Да именно по этой причине! =) Проблема решена! Спасибо + уже красуется у тебя в репутации =) 0

@Z3oM 250 / 71 / 18 Регистрация: 10.04.2010 Сообщений: 532 Записей в блоге: 3
	28.07.2011, 22:13 [ТС]	9
	Предмет в игре нужно передвинуть в отдельную ячейку ) Для Этого =) Спасибо тебе ещё раз =) 0

@igoriy 873 / 544 / 117 Регистрация: 24.11.2009 Сообщений: 1,329
	29.07.2011, 20:03	10
	Суть - я не играю . Поэтому не знаю как это происходит в играх. 0

@Z3oM 250 / 71 / 18 Регистрация: 10.04.2010 Сообщений: 532 Записей в блоге: 3
	31.07.2011, 14:40 [ТС]	11
	не важно в играх это или нет =) важно что нужно неважно какой та объект переместить в другое дочерние окно другой программы. 0

Опции темы