Движение мышки

@D1mon · Регистрация: 12.06.2011

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

Как сделать плавное движение мышкой (так как человек ведет) а не рывками.
SetCursorPos - не подходит, а MouseMove у меня не получается сделать из-за Shift (первое) значения не знаю что туда вписать. И если можно то как можно это значение пропустить оно не нужное (nil, Null и 0) не проходят.

@anonimus · 10.07.2011, 17:57

о каком MouseMove ты говоришь? о событии onMouseMove ?

Добавлено через 3 минуты
и почему интересно SetCursorPos не подходит? допустим тебе надо провести мышкой по оси х вот и двигай мышку функцией SetCursorPos не в конец траектории а по маленьким "шагам" с небольшой задержкой, как ты вообще планируешь задавать траекторию ?

@Arcor · 10.07.2011, 19:29

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

И если можно то как можно это значение пропустить оно не нужное (nil, Null и 0) не проходят.

просто пропустить, ничего не вписывать

@D1mon · 10.07.2011, 20:23 **[ТС]**

о каком MouseMove ты говоришь? о событии onMouseMove ?

Вроде это не событие, в редакторе кода вписываю MouseMove(Shift : TShiftState, X, Y : Integer)

просто пропустить, ничего не вписывать

Как пропустить?

@anonimus · 10.07.2011, 20:32

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

Вроде это не событие

как раз таки событие

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

в редакторе кода вписываю MouseMove(Shift : TShiftState, X, Y : Integer)

ты мышку так не сдвинешь, используй SetCursorPos

@D1mon · 10.07.2011, 20:46 **[ТС]**

anonimus, ты можешь написать код? Я сегодня пробовал SetCursorPos и у меня не получилось.
У меня получилось сдвинуть в определенное место (например в центр), а дальше двигается рывками, а хотелось бы чтобы плавно (хотябы на 100 пх) в сторону (любую).

@Arcor · 10.07.2011, 20:53

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 
var
  Form1: TForm1;
  x,y: Integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  y := 200;
  Timer1.Interval := 1;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 
  SetCursorPos(x,y);
  x := x+1;
  if x >= 100 then
    begin
      Timer1.Enabled := False;
      FormCreate(Sender);
    end;
end;
 
end.

ну вот сдвигаем вправо, или не это нужно? я тоже не могу понять что ты спрашиваешь

@D1mon · 10.07.2011, 21:07 **[ТС]**

Arcor, У меня вообще ни чего не происходит. Курсор как стоят так и стоит на месте. Мне нужно чтобы курсор (допустим с цертра экрана Screen.Width и Screen.Height / 2) сдвинуть вправо на 100 пикселей (плавно). А не рывком с одного места в другое. Также нужно чтобы можно было свернуть приложение, а эффект остался(работал).

@anonimus · 10.07.2011, 21:26

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i:Word;
begin
SetCursorPos(Screen.Width,Screen.Height div 2);
sleep(1000);
for i:=1 to Screen.Width do begin
SetCursorPos(Screen.Width-i,Screen.Height div 2);
sleep(10);
end;
 
end;

@D1mon · 10.07.2011, 21:36 **[ТС]**

anonimus, это уже получше, теперь есть от чего отталкиваться. Спасибо.

@Arcor · 11.07.2011, 00:34

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

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i:Word;
begin
SetCursorPos(Screen.Width,Screen.Height div 2);
sleep(1000);
for i:=1 to Screen.Width do begin
SetCursorPos(Screen.Width-i,Screen.Height div 2);
sleep(10);
end;
 
end;

ой, а приложение то виснуть будет

из-за слипа

@anonimus · 11.07.2011, 09:48

при желании можно добавить Application.ProcessMessages но это лишнее, все равно пока движется мышка с приложением ничего не сделаешь, если только командами с клавиатуры, но я думаю ТС это не нужно.

Новые блоги и статьи
Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .	Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS, Swagger и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .
Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .

@D1mon 4 / 4 / 0 Регистрация: 12.06.2011 Сообщений: 18
		1
	Движение мышки 10.07.2011, 13:11. Показов 9172. Ответов 11 Метки нет (Все метки) Как сделать плавное движение мышкой (так как человек ведет) а не рывками. SetCursorPos - не подходит, а MouseMove у меня не получается сделать из-за Shift (первое) значения не знаю что туда вписать. И если можно то как можно это значение пропустить оно не нужное (nil, Null и 0) не проходят. 0

@anonimus 2184 / 1254 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	10.07.2011, 17:57	2
	о каком MouseMove ты говоришь? о событии onMouseMove ? Добавлено через 3 минуты и почему интересно SetCursorPos не подходит? допустим тебе надо провести мышкой по оси х вот и двигай мышку функцией SetCursorPos не в конец траектории а по маленьким "шагам" с небольшой задержкой, как ты вообще планируешь задавать траекторию ? 0

@Arcor 5707 / 2298 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	10.07.2011, 19:29	3
	Сообщение от D1mon И если можно то как можно это значение пропустить оно не нужное (nil, Null и 0) не проходят. просто пропустить, ничего не вписывать 0

@D1mon 4 / 4 / 0 Регистрация: 12.06.2011 Сообщений: 18
	10.07.2011, 20:23 [ТС]	4
	о каком MouseMove ты говоришь? о событии onMouseMove ? Вроде это не событие, в редакторе кода вписываю MouseMove(Shift : TShiftState, X, Y : Integer) просто пропустить, ничего не вписывать Как пропустить? 0

@anonimus 2184 / 1254 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	10.07.2011, 20:32	5
	Сообщение от D1mon Вроде это не событие как раз таки событие Сообщение от D1mon в редакторе кода вписываю MouseMove(Shift : TShiftState, X, Y : Integer) ты мышку так не сдвинешь, используй SetCursorPos 0

@D1mon 4 / 4 / 0 Регистрация: 12.06.2011 Сообщений: 18
	10.07.2011, 20:46 [ТС]	6
	anonimus, ты можешь написать код? Я сегодня пробовал SetCursorPos и у меня не получилось. У меня получилось сдвинуть в определенное место (например в центр), а дальше двигается рывками, а хотелось бы чтобы плавно (хотябы на 100 пх) в сторону (любую). 0

@D1mon 4 / 4 / 0 Регистрация: 12.06.2011 Сообщений: 18
	10.07.2011, 21:07 [ТС]	8
	Arcor, У меня вообще ни чего не происходит. Курсор как стоят так и стоит на месте. Мне нужно чтобы курсор (допустим с цертра экрана Screen.Width и Screen.Height / 2) сдвинуть вправо на 100 пикселей (плавно). А не рывком с одного места в другое. Также нужно чтобы можно было свернуть приложение, а эффект остался(работал). 0

@D1mon 4 / 4 / 0 Регистрация: 12.06.2011 Сообщений: 18
	10.07.2011, 21:36 [ТС]	10
	anonimus, это уже получше, теперь есть от чего отталкиваться. Спасибо. 0

@anonimus 2184 / 1254 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	11.07.2011, 09:48	12
	при желании можно добавить Application.ProcessMessages но это лишнее, все равно пока движется мышка с приложением ничего не сделаешь, если только командами с клавиатуры, но я думаю ТС это не нужно. 0