Chciałem zrobić żeby isLeft było pod innim klawiszem. W internecie znalazłem taki przykład:
function DefKeyAssign: TKeyAssignList;
begin
FillChar(Result, SizeOf(Result), 0);
AssignKey(Result, isUp, [Ord('K'), VK_UP, VK_NUMPAD8]);
AssignKey(Result, isDown, [Ord('J'), VK_DOWN, VK_NUMPAD2]);
AssignKey(Result, isLeft, [Ord('H'), VK_LEFT, VK_NUMPAD4]);
AssignKey(Result, isRight, [Ord('L'), VK_RIGHT, VK_NUMPAD6]);
AssignKey(Result, isButton1, [Ord('Z'), VK_SPACE]);
AssignKey(Result, isButton2, [Ord('X'), VK_RETURN]);
AssignKey(Result, isButton9, [VK_F2]);
end;
{...}
DXInput.KeyBoard.KeyAssigns:=DefKeyAssign;
Problem w tym że "nie mam" funkcji AssignKey. Mam UnDelphiX 1.0 (dane z (un)DelphiX.doc), 2000.07.17 (readme.txt). W sekcji Uses mam
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DXClass, DXSprite, DXInput, DXDraws, Math;
Funkcja jest w przestrzeni (chyba tak to się nazywa) głównego formularza (dodałem do TMainForm.FormCreate)
Skąd wziąć tą funkcję?