Question

delphi鼠标控制移动代码

谢谢各位大大.我们毕业项目.要我们用Delphi做个游戏出来.我们准备做像飞机那种游戏.但就差Delphi鼠标控制移动代码了.谢谢各位大大.在此拜谢.

Answer 1

MouseDown / MouseMove / MouseUp / 等等
不知道是想怎么移动呢？

Answer 2

鼠标的 OnMouseMove 事件里面 里面有 X 和Y 方位

Answer 3

不是有mouseklick事件的吗？？
自己研究一下。

Answer 4

procedure TForm1.btnLClickClick(Sender: TObject);
begin
SetCursorPos(10,10);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;