用到的組件（TDXInput、TTimer）:

---

原文鏈接：http://www.delphigamedev.com/tutorials/dxtut1.htm

在這一教程里，我們將會學習如何使用鍵盤來移動我們的角色（在DelphiX的組件的幫助下）。如果您還沒有這些組件，您可以通過這里來下載最新的版本。一旦您成功安裝DelphiX，您就能開始學習本教程了。我們將會使用其中特定的組件——DXInput，該組件能允許我們處理鍵盤和搖桿的輸入。

?

那么，開始前我們還需要裝載我們的代碼（這里下載）。我們需要移去窗體上的按鈕，還有其BtnClick過程的源代碼。首先，我們需要修改每個BtnClick過程的第一行代碼，使其不再關聯到buttons里的Onclick事件。

procedure TForm1.LeftBtnClick(Sender: TObject);

應該修改成:

procedure TForm1.Left

procedure TForm1.UpBtnClick(Sender: TObject);

應該修改成:

procedure TForm1.Up;

procedure TForm1.RightBtnClick(Sender: TObject);

應該修改成:

procedure TForm1.Right;

procedure TForm1.DownBtnClick(Sender: TObject);

應該修改成:

procedure TForm1.Down;

現在我們需要刪除窗體上的4個方向按鈕。之后我們還需要刪除type聲明區域下所有屬于這幾個按鈕的過程代碼。如下：

procedure LeftBtnClick(Sender: TObject);
procedure UpBtnClick(Sender: TObject);
procedure RightBtnClick(Sender: TObject);
procedure DownBtnClick(Sender: TObject);

在我們使用Left、Right、Up和Down這4個過程之前，我們需要添加以下的代碼來再次聲明他們（在private聲明區域下，其他事先聲明的過程之前聲明）。

procedure Left;
procedure Right;
procedure Up;
procedure Down;

我 們準備好使用DXInput組件了。首先雙擊其組建欄上的圖標，使之添加到窗體上。如果您不確定是哪個組件，請參照本文頂部的組件列表。我們還需要另外一 個組件——Timer，您可以在組件欄的System標簽下找到（一個鐘面的圖標）。雙擊該圖標使之添加到窗體上。我們將會使用它來定期地檢查鍵盤上的方 向鍵是否被按下。您需要修改其時間間隔（默認值為1000毫秒）為50毫秒左右，使計算機能夠檢查到是否有鍵按下。您可能需要把該值調高一些，因為您在運 行該程序的時候會發現鍵盤上的按鍵會有點過于敏感（譯注：響應太快）。現在我們開始寫DXInput組件的代碼。所有的代碼都寫在Timer的過程里，我 們雙擊窗體上的Timer圖標。

在begin之后輸入以下代碼：

DXInput1.Update;
if isLeft in DXInput1.States then Left;
if isRight in DXInput1.States then Right;
if isUp in DXInput1.States then Up;
if isDown in DXInput1.States then Down;

這些代碼簡單的告訴程序去檢查是否有任何按鍵按下。如果是，則在左方向鍵按下的時候調用Left過程，在右方向鍵按下的時候調用Right過程，其他亦然。你可以現在運行該程序，通過鍵盤來控制窗體上的角色移動。

?

最后，如果您有連接到電腦的搖桿，您會發現您能使用搖桿上的上下左右鍵來移動您的角色。

在下一個教程里，我們將繼續學習其他有用的DelphiX組件。如果您對本教程有任何疑問或建議，請E-mail我，郵箱地址為：ben@delphigamedev.com

?

版權說明

本 系列譯文在博客園發表，除允許在互聯網上自由轉載外，不允許以其它任何方式拷貝、編輯、印刷出版、制作發行及傳播，包括不允許在筆者未知曉的情況下制作成 各種格式的電子文檔并傳播，更不得在未經筆者本人允許的情況下以任何形式的拷貝用于商業用途。筆者對本系列譯文保留有追究其侵權責任的權利。

若需制成電子文檔并用于非商業用途方式的傳播，請保留以下版權信息，并與筆者聯系郵寄副本一份。

作者：Nicholas.Yuen
網名：小丸
Email：ruanjiayuan AT gmail.com ( AT -> @)
Blog：http://genkagen.blogspot.com/
時間：2008.08.05
Copyright: All right resver

PS：轉載請保留以上版權信息

轉載于:https://www.cnblogs.com/waterfalleagle/archive/2010/06/27/1766330.html

總結

以上是生活随笔為你收集整理的DelphiX教程系列 1 - 使用键盘和摇杆的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。