OnMouseDown в игре.

[Titan123]

мне нужно, чтобы, если мышь была "поднята" вверх, то компонент image1 тоже поднимался вверх, вниз-вниз.
насколько я знаю, за это отвечает событие OnMouseDown. но я не знаю, как им воспользоваться. помогите реализовать

[Stilet]

если мышь была "поднята" вверх

Если мышь поднять вверх то курсор останется на месте ибо в воздухе мышь теряется и смущается ))))

А если по теме то термин "поднята вверх" неплохо было бы прояснить.
Отжата кнопка или курсор вверх пополз?

[Titan123]

да, если курсор вверх поднялся
извиняюсь

[Iceman]

Тада не он моусе довн. можно сделать так:
ontimer:
var x,y,xn,yn:integer; p:Tpoint;
begin
xn:=mouse.cursorppos.x;
yn:=mouse.cursorppos.y;
if x<> xn then p.x:=p.x+(xn-x);
if y <>yn then p.y:=p.y+(yn-y);
image1.left:=p.x;
image1.top:=p.y;
x:=mouse.cursorppos.x;
y:=mouse.cursorppos.y;
end;

как перевести в язык програмирования думаю поймеш.

[Hollander]

относительно чего поднялся вверх?
а вообще логика такая

if Y > Y_точки_относительно_которой_работаем then
Image1.Top := Image.Top + h;// h- какая-то велеичина
else
Image1.Top := Image.Top - h;// h- какая-то велеичина

[GenAcid]

Сделай таймер, и в onTimer добавь:

Image1.Top := Mouse.CursorPos.Y;

[Ulex]

А ещё есть системное сообщение WM_MOUSEMOVE его система посылает процедуре окна, обладающего фокусом ввода при перемещении мыши (имеется ввиду по столу).

Примерно так:

WndProc	proc uses ebx edi esi, hwnd:DWORD, wmsg:DWORD,\
                 		wparam:DWORD, lparam:DWORD

	cmp	[wmsg], WM_MOUSEMOVE
	je	wmmousemove
	jmp	finish

wmmousemove:	
	mov	eax,lparam
	and	eax,0FFFFh
	mov	[x],eax
	mov	eax,lparam
	shr	eax,16
	mov	[y],eax
	jmp	finish

[Titan123]

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

Сделай таймер, и в onTimer добавь:

Image1.Top := Mouse.CursorPos.Y;

спс. помогло.
только там один недочет: курсор при запуске программы выше картинки, так неудобно управлять. как сделать так, чтобы картинка и курсор первоначально находились на одном уровне?

[Stilet]

Ну отними еще высоту курсора.

[Titan123]

а как?
вот так не получается:
Mouse.CursorPos.Y-10;