請問，目前我繼承TEdit元件， 要做一個只能輸入數字(暫時做到這個就好)， 目前用攔截訊息的方式，宣告如下 procedure MYKeyDown(var msg : TMessage); message WM_KEYDOWN; procedure TMyEdit.MYKeyDown(var msg: TMessage); begin showmessage('Test'); end; 之後拉到表單時，在元件按任意鍵是可以顯示Test， 但是我該如何判斷使用者按下的key是什麼Key。 目前知道有取代原onKeyDown的方法， procedure TMyEdit.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState) begin ...... end; 在Create事件中加上 self.onKeyDown = newKeydown 可是之前有網友說不要如此寫比較好 請問用TMessage有辦法捉到目前的Key值嗎? ---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ----------------

------
----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------

procedure MYKeyDown(var msg : TWMKeyDown); message WM_KEYDOWN; procedure TMyEdit.MYKeyDown(var msg: TWMKeyDown); begin showmessage(Char(msg.charcode)); end;

hi, 你可以試著追一下程式碼, TEdit 的 onKeyDown event 是由 TWinControl 來的, 所以你查一下 TWinControl class 會發現其攔截 WM_KEYDOWN 是在這裡:

// controls.pas 中
    procedure WMKeyDown(var Message: TWMKeyDown); message WM_KEYDOWN;
//.. implement
procedure TWinControl.WMKeyDown(var Message: TWMKeyDown);
begin
  if not DoKeyDown(Message) then inherited;
end;

有沒有注意到其將攔下來的 message 是 TWMKeyDown 再查一下該類別的定義為:

// message.pas 中
  TWMKeyDown = TWMKey;
  TWMKey = packed record
    Msg: Cardinal;
    CharCode: Word;
    Unused: Word;
    KeyData: Longint;
    Result: Longint;
  end;

這樣就可以看得到其代表的資料了, 其中的 CharCode 就是原來 edit 中的 onKeyDown event 中的 var Key: Word 了. 所以將你的程式修改一下:

procedure TMyEdit.MYKeyDown(var msg: TMWKeyDown);
begin
  showmessage(inttostr(msg.CharCode));
end;

就可以了!!

謝謝!!    改過之後的確可以取得鍵盤的值， 可是不管大小寫的a，他的Ascii好象都是65， 不過因為我只要判斷輸入的是否為數字， 所以沒有太大的影響。    感謝，justmade大大和timhuang大大， justmade大大的解答真是簡潔有力， timhuang大大的解答更是詳細， 只可惜只能給一個人得分。    真的謝謝~~~ ---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ----------------

------
----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------