是否有Delphi“操纵杆”控制?

阿法克绝地(绝地阿皮利布?)也有一个操纵杆头。它是winapi,不是com,所以不涉及tlb

尝试 NLDJoystick ,一个由我编写的基于纯winapi(mmsystem.pas)的开源组件。可从SVN服务器下载 here .

接口:

public
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
published
  property AbsCenter;
  property AbsMax;
  property AbsMin;
  property Active default False;
  property Advanced default False;
  property AxisCount;
  property Axises;
  property ButtonCount;
  property HasPOV;
  property ID;
  property OnButtonDown;
  property OnButtonUp;
  property OnMove;
  property OnPOVChanged;
  property PollingInterval default 40;
  property RepeatButtonDelay default 350;
  property RepeatMoveDelay default 350;
  property SuspendScreensaver default False;
  property ThresholdFactor;

也许你可以自己做点类似的东西。

1. 取一个面板,在鼠标上下移动事件时注册。
2. 在mousedown上,设置一个布尔值(fButtonDown),这样您就知道mouseButton被按下并保存mousePointer的x和y坐标。
3. 在mousemove上,检查按钮是否向下(fButtonDown)并移动对象。鼠标执行器从保存位置移动得越多,移动得越快。
4. 在mouseup上,将fButtonDown设置为false

以上是非常原始的,但应该是有效的。

我在谷歌上搜索“操纵杆动态链接库”,发现了无数。您可以将其中一个抛出到您的项目中,然后只需为它编写一个tlib头(或者不管它叫什么,有一段时间没有这样做),就可以从Delphi访问它的C API。

您可以使用Delphix组件。它们是DirectX的包装器,据我所知,其中一个包装器环绕着DirectX操纵杆接口。它以Delphi样式包装,因此很容易使用。