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

@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 но это лишнее, все равно пока движется мышка с приложением ничего не сделаешь, если только командами с клавиатуры, но я думаю ТС это не нужно.

@D1mon 4 / 4 / 0 Регистрация: 12.06.2011 Сообщений: 18
		1
	Движение мышки 10.07.2011, 13:11. Показов 9119. Ответов 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 5706 / 2297 / 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