為何鍵盤的Tab 不會產生FormKeyDown事件 但其它按鍵都可以 各位前輩幫幫我吧!!

Tab 及 上下左右等要用 Key Press 不會在 FormKeyDown 出現的

引言: Tab 及 上下左右等要用 Key Press 不會在 FormKeyDown 出現的

謝謝Justmade回覆,但是我試不行,不知謂何??

你是要在 FORM 上去攔 TAB 的按鍵嗎~~ 請試著將 FORM.KeyPreview 設為 TRUE -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

Sorry 是我記錯了

  protected
    procedure WndProc( var msg : TMessage);override;    procedure TForm1.WndProc( var msg: TMessage );
begin
  inherited;
  case msg.Msg of
     CM_CHILDKEY:
     begin
        if msg.wParam = VK_Tab then
          ShowMessage('Tab');
     end;
  end;
end;

測試過可行 發表人 - Justmade 於 2003/06/24 00:02:28

另一種方法: http://www.delphi32.com/info_facts/faq/faq_457.asp

type
  TForm1 = class(TForm)
  private
    procedure CMDialogKey(var msg: TCMDialogKey);
     message CM_DIALOGKEY;
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.CMDialogKey(var msg: TCMDialogKey);
begin
  if msg.Charcode <> VK_TAB then
   inherited;
end;
  
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_TAB then
    Form .Caption := 'Tab Key Down!';
end;

--- 每個人都是一本書

SORRY 小弟失查~~我試了一下~~還真的攔不到 TAB 鍵~~    在這裡小弟再提供另一個解決的辦法~~    1.先放入 ApplicationEvents 元件(這個元件好像要DELPHI 6以上才有)    2.ApplicationEvents OnMessage 事件中

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
 if Msg.message = WM_KEYDOWN then
  if Msg.wParam = VK_TAB then
   ShowMessage('Is TAB')
  else
   ShowMessage('Not TAB')
end;

OK 完成~收工 -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

若用 ApplicationEvent 要小心 你用一個 Form 試時沒問題 若超過一個 Form 所有 Form 的都會被攔 若放在子視窗關閉時又沒取消該 Event 會出現Error 因 TForm1.ApplicationEvents1Message 已不存在 所以若你要是欄整個 Application 的 Tab 這是一個最簡單的好方法 但若只是針對某一/幾個 Form 的話其他兩個方法較好

引言: 若用 ApplicationEvent 要小心 你用一個 Form 試時沒問題 若超過一個 Form 所有 Form 的都會被攔 若放在子視窗關閉時又沒取消該 Event 會出現Error 因 TForm1.ApplicationEvents1Message 已不存在 所以若你要是欄整個 Application 的 Tab 這是一個最簡單的好方法 但若只是針對某一/幾個 Form 的話其他兩個方法較好

嗯嗯~~Justmade 大大說的沒錯~~因為他是針對整個 APPLICATION 去作業的~~ -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心