Управление движением объекта мышью

[program123]

Пишу игру, на подобе пинг понга, управление происходит стрелками с клавиатуры. Хочу сделать управление движением мышки, т.е повели влево мышь image.left:=image.left - 20 , повели вправо image.left:=image.left + 20 . Подскажите как сделать.

[Terran]

Обрабатывайте событие MouseMove у объекта по которому вы водите мышью. К примеру:

Procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
...
End;

[program123]

Я знаю об обработчике событий . Но тут переменные х и у, как им присвоить движение мыши не понятно, а вот если на клики делать, то там всё ясно в процедуре описано Button: TMouseButton;

[BOBAH13]

Ну так при клике запоминаем что надо, например позицию нажатия. Потом просто зная тот же X и при перемещении (OnMouseMove) вычитаем и получаем < 0 ил и> 0 относительно нажатия вот вам и двигайте что хотите. В чем проблема, точней ?

[KORN]

а зачем им присваивать7 они возвращают позицию курсора...

[BOBAH13]

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

а зачем им присваивать7 они возвращают позицию курсора...

Странный вопрос. Ну смотрите есть объект на X = 10, вы кликаите на него и хотите его перетащить, нажимаите на X = 12 = OldX, и попадаите по объекту, потом начинаите двигать мыщью, и получиите к примеру X = 11, тогда Object.Left = Object.Left - OldX + X. Так вы можете двигать объект.

p.s. вроде верный расчет, если память не подводит, вот зачем запоминать OldX

[KORN]

ты видимо не понял про что я... я про то что зачем давать значения X и Y если они передают значения курсора и с помощью их можно задать координаты объекта

[BOBAH13]

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

ты видимо не понял про что я... я про то что зачем давать значения X и Y если они передают значения курсора и с помощью их можно задать координаты объекта

Извените конечно но видимо Вы не поняли о чем Я Вы не учитываите что пользователь может нажать не на 1й пиксель в левом верхнем углу (если речь о 2D) а где-нибудь по середке, и тогда как только человек двинет мышь, объект выравнится ровно под курсором (левый верхний угол объекта), в моем же случае этого не случится.

Думаю теперь Вы понимаите о чем я

p.s. я не собираюсь продолжать флуд, т.к. видимо Вы - Korn не понимаите о чем я вам говорю, и причем тут одна ось, эта система касается хоть n^10 осей, суть не изменится.

[KORN]

ну дык тогда просто одну ось координат вообще можно не обрабатывать

[mihali4]

Что-то вы мудрите...

Обявляем глобальные переменные
xold,yold: integer;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
xold:=0;
yold:=0;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if xold=0 then
xold:=x;
if yold=0 then
yold:=y;
Image1.Left:=Image1.Left-xold+x;
xold:=x;
Image1.Top:=Image1.Top-yold+y;
yold:=y;
end;

И все... И никаких кликов...