請教大大們~

我想要能自己處理所有的鍵盤動作

假設Form上擺了幾顆Button, 一個Grid
而方向鍵只想拿來捲動Grid
所以試著將Form.Keypreview設為True
然後在FormKeyDown裡頭攔截鍵盤碼
當判斷為方向鍵時就變動Grid的列號

但是按下方向鍵, 會先移動了按鈕的Focus後, 才會捲動Grid
請問有參數可以設定不讓Delphi自動處理Focus？
還是有什麼方式可以更早攔截到鍵盤碼？

關鍵字：Keypreview, FormKeyDown, Focus, DoOnMessage

編輯記錄

在 FormKeyDown 事件中判斷 KEY 為方向鍵時:
若 Grid not Focused, 就 set Grid to Focus
試看看吧 !!

在Grid.SetFocus之前，按鈕的Focus已經自動先被方向鍵影響（跳到下一顆按鈕）
然後才會輪到Grid捲動（這個是我在FormKeyUp裡頭判斷為方向鍵時就去改變Grid的列號）
===================引 用 smallfox 文 章===================
在 FormKeyDown 事件中判斷 KEY 為方向鍵時:
若?Grid not Focused, 就 set Grid to Focus
試看看吧 !!

編輯記錄

請問你的 Form 是否是繼承過來的 ?

不是繼承的（我還沒那個功力）.

我用Delphi2009，全部的物件都是標準的，直接拉出來用
我目前測試的寫法是在Form上擺上幾顆按鈕
Form.Keypreview := True;
然後Form的三個鍵盤事件都設了中斷點
當我按下方向鍵後，可以用肉眼能分辨的速度看見先後順序為：
１ 先移動了按鈕的Focus
２ 進入FormKeyUp事件裡頭（其他兩個攔不到方向鍵）

（目前正在閱讀Key Hook相關的文章，希望是我要的答案）
===================引 用 smallfox 文 章===================
請問你的 Form 是否是繼承過來的 ?

我弄懂你的意思了

當 Button 取得 focus 時, 你是無法攔截方向鍵, 似乎它的底層已先處理掉了

能做的是, 盡量不要讓 Button 取得 focus.

如: 設定屬性 TabStop=False, 在 OnClick 事件中處理完程序後, 就把 focus 移走...等

這樣你依舊可以在 FormKeyDown 事件中, 撰寫控制按鍵的程式碼.

forbidden = O n C l i c k

原諒我找到的答案的激動，真的感動到快哭了!!!
我知道從Focus下手算是”表面上看起來正常”的做法
不過我要弄董完全控制鍵盤可能還要花上一段時間 @@"

測試了TabStop可以處理掉Tab鍵
我另外有找到 TForm.ActiveControl，把這個屬性值動態設為nil就可以控制Focus了
===================引 用 smallfox 文 章===================
我弄懂你的意思了
當 Button 取得 focus 時, 你是無法攔截方向鍵, 似乎它的底層已先處理掉了
能做的是, 盡量不要讓 Button 取得 focus.
如: 設定屬性 TabStop=False, 在 OnClick 事件中處理完程序後, 就把 focus 移走...等
這樣你依舊可以在 FormKeyDown 事件中, 撰寫控制按鍵的程式碼.

當 Button 取得 focus 時, 你是無法攔截方向鍵, 似乎它的底層已先處理掉了

另外想問關於上述這點，是否有哪個屬性可以設定取消Delphi自動自發的動作阿？

因為它是元件, 除非你是繼承來改寫, 否則對於原生的元件, 沒有改動的餘地.
(除非你改了 Delphi 所附的 Source .pas 再編譯, 但這對於未來版本升級, 會是風險)

或者, 有興趣可以試看看 Windows API 的方式吧.

[code delphi]
unit fMain;

interface
uses
Windows, Messages, Classes, Controls, Forms, StdCtrls, Dialogs;

type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
procedure DoOnMessage(var Msg: TMsg; var Handled: Boolean);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := DoOnMessage;
end;

procedure TForm1.DoOnMessage(var Msg: TMsg; var Handled: Boolean);
begin
Handled := False;
case Msg.message of
WM_KEYDOWN:
begin
Handled := True;
case Msg.wParam of
VK_TAB: ShowMessage('VK_TAB');
VK_UP: ShowMessage('VK_UP');
VK_DOWN: ShowMessage('VK_DOWN');
VK_LEFT: ShowMessage('VK_LEFT');
VK_RIGHT: ShowMessage('VK_RIGHT');
else Handled := False;
end;
end;
end;

if not Handled then
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
Handled := True;
end;

end;

end.

[/code]

感謝jow大大的分享，這次感受到了Message的威力
確定能在自動處理Focus之前就能攔取到鍵盤碼
而且反應速度比在FormKeyDown裡頭做還要快上一些

編輯記錄

如果按上下方向鍵，只做移動資料列的動作，又何必理會現在的焦點在哪裡？就簡單地，把 Form.KeyPriview 設為 true，Form 的 KeyDown 判斷是否按了上、下方向鍵，直接呼叫 DataSet 的 Prior 或 Next 就好了。

這可能跟我個人的排版還有程式架構有關
我一個專案是由多個Form組合的，例如：
Form1負責輸入，上面擺了多個按鈕
Form2負責顯示，擺了一個Grid
當這專案執行的時候Form1、Form2會同時Show出來
我希望不論何時按下方向鍵都只能捲動Grid
以我目前所知道的技巧就是把全部的Form的Keypreview屬性設為True
不論哪個Form攔截到鍵盤碼都會對應到一張對照表，執行對應的動作
假設使用者隨意操作後，讓現在的Focus在Form1上（有多個按鈕）的某個按鈕
這時候當按下方向鍵想要捲動Grid的時候，就會發生先移動了Form1上某個按鈕的Focus
然後才會判斷鍵盤碼為方向鍵而去捲動Form2的Grid
就是在這樣的情況之下，我才需要各位大大的熱心分享
===================引 用 cancer 文 章===================
如果按上下方向鍵，只做移動資料列的動作，又何必理會現在的焦點在哪裡？就簡單地，把 Form.KeyPriview 設為 true，Form 的 KeyDown 判斷是否按了上、下方向鍵，直接呼叫 DataSet 的 Prior 或 Next 就好了。

Hello，通常這種情形，KeyDown 移動資料之後，要順便來個 Key := 0; 把按鍵取消，就等於沒有按任何按鈕。
===================引 用 douglas 文 章===================
假設使用者隨意操作後，讓現在的Focus在Form1上（有多個按鈕）的某個按鈕
這時候當按下方向鍵想要捲動Grid的時候，就會發生先移動了Form1上某個按鈕的Focus
然後才會判斷鍵盤碼為方向鍵而去捲動Form2的Grid

在我苦力的測試過程中有個狀況
如果任意操作之後Focus停留在某個Button上
在這個條件之下FormKeyDown是攔不到方向鍵的，只剩下FormKeyUp有作用
在這種狀況下按了方向鍵就會先自動從按紐１跳到按鈕２然後才進入FormKeyUp
在這情況下，我才試著控制物件的Focus
因為如果Form上的任何物件都不要獲得Focus，那麼方向鍵就不會有作用（除非自己控制）

後來jow大大分享的技術，可以直接取得鍵盤的Message，就從根本上解決這個問題
完全不用透過Form的鍵盤事件來處理．
===================引 用 cancer 文 章===================
Hello，通常這種情形，KeyDown 移動資料之後，要順便來個 Key := 0; 把按鍵取消，就等於沒有按任何按鈕。
===================引 用 douglas 文 章===================
假設使用者隨意操作後，讓現在的Focus在Form1上（有多個按鈕）的某個按鈕
這時候當按下方向鍵想要捲動Grid的時候，就會發生先移動了Form1上某個按鈕的Focus
然後才會判斷鍵盤碼為方向鍵而去捲動Form2的Grid

編輯記錄

Hello, 有時候我故意不用 TButton 和 TBitbin，改用 TSpeedButton，它沒有焦點，有焦點的按鈕有一個大問題，焦點跳到這個按鈕之後，鍵盤按了 Enter 就會執行，完全在使用者意料之外。

感謝大大分享 ^_^  
在下一直都是TButton打天下，沒有深入研究過SpeedButton

我就是因為Delphi＂體貼＂的舉動才發生悲劇的 @@"
不過因為這個機緣學到了不少新技術倒是非常開心
===================引 用 cancer 文 章===================
Hello, 有時候我故意不用 TButton 和 TBitbin，改用 TSpeedButton，它沒有焦點，有焦點的按鈕有一個大問題，焦點跳到這個按鈕之後，鍵盤按了 Enter 就會執行，完全在使用者意料之外。