CODEWITHSUNDEEP
delphicontrolsmousejoystick
Brian Frost
Brian Frost

Reputation: 13454

Is there a Delphi 'joystick' control?

I'd like to align an object in X and Y by eye using the mouse to move it into position. I can roll a solution by using various spin controls (or buttons) but it's messy and I got to wondering whether there is a control - like a joystick - that provides 2-axis control using the mouse and fires events at rates which vary depending on its position?

Upvotes: 2

Views: 3720

Answers (5)

NGLN
NGLN

Reputation: 43669

Try NLDJoystick, an open-source component written by me and based on pure WinAPI (MMSystem.pas). It is downloadable from GitHub.

The interface:

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;

Upvotes: 3

The_Fox
The_Fox

Reputation: 7062

Maybe you can make something like that yourself.

  1. Take a panel, and register on Mouse up, down and move events
  2. On MouseDown, set a boolean (fButtonDown) so you know that the mousebutton is pressed and save the X and Y coordinates of the mousepointer.
  3. On MouseMove, check if a button is down (fButtonDown) and move your object. The more your mousecursor is moved from its saved position, the faster you move.
  4. On MouseUp, set fButtonDown to false

The above is very primitive, but should work.

Upvotes: 1

Marco van de Voort
Marco van de Voort

Reputation: 26376

Afaik Jedi (jedi apilib?) had a joystick header too. It is winapi, not COM, so no TLB involved

Upvotes: 3

Wodzu
Wodzu

Reputation: 6989

You may use a DelphiX components. They are wrappers for DirectX and one of them wraps around DirectX joystick interface as far as I remember. It wraps in a Delphi-style so it is easy to use.

Upvotes: 0

Carl Smotricz
Carl Smotricz

Reputation: 67790

I Googled for "joystick dll" and found countless. You can probably throw one of these into your project and then access its C API from Delphi by simply writing a TLIB header (or whatever it's called, haven't done this in a while) for it.

Upvotes: 0

Related Questions