小弟原意是想用一個grid去讓user輸入資料,在某時,會有一個combox彈出來供使用者選擇,所以我在stringgrid的drawcell procedure那裏,寫了code,指名如果gdfocused 的話就會將個combox彈出黎,然後再將combobx set了focus,那樣就可以模擬到當user按下或選了某一欄位時,就會彈一個combobx出來...不過如果只是單單的欄位,當user按下tab或上鍵/下鍵都會移動foucs,不過如果user 選了一個會彈combox的欄位時,就會set了combox為setfoucs...我試著控制combox的keypress,當user按下enter時就會跳至右手邊的欄位,但keypress/keydown都detect不到tab鍵,而且如果我想做到按shift tab可以跳回上個control或前一個欄位就做不到...請問有什麼解決方法呢?謝

參考:  http://delphi.ktop.com.tw/topic.php?TOPIC_ID=23961 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=32885    -- 悟嗎？ 發表人 -

看完範例我也明白其用途,但是我想知道這個 procedure CMDialogKey(Var Msg: TWMKey); message CM_DIALOGKEY; 是什麼procedure? 是delphi內定嗎? 還有"inherited"一字的意思為何?

1.以下摘自 Delphi 4 業界標準手冊 ..., Delphi 並不讓一個程序(procedure)掌握所有的訊息處理, 而是透過內部的訊息機制, 讓每一個訊息各有其處理程序, 使訊 息的處理工作便得簡明. 用來處理訊息的程序必須滿足以下三大 需求:  

• 必須是一個物件的方法
• 必須具有一個以 var 宣告的 TMessage 型態參數(其或它針對特定訊息以 TMessage 型態衍生宣告的結構記錄)
• 必須以 message 保留字宣告它打算處理哪一個訊息

2.inherited

procedure TForm1.CMDialogKey(var msg: TCMDialogKey);
begin
  if msg.Charcode <> VK_TAB then
    inherited;
end;

以上例而言, 當程式執行到 inherited 這一行時, 它會去找 TForm( 因 TForm1 繼承自 TForm) 中有處理 CM_DialogKey 這個程序, 如果有就 執行, 若當中再遇到 inherited 保留字的話, 它就再去找 TCustomForm (TForm 繼承自 TCustomForm)中處理 CM_DialogKey 這個程序, 一直這樣 往上推. -- 悟嗎？

Thank You

不好意思想補充少少... 1. 如果加了inherit,即是話default的設定,對嗎? 2. 如果想做到按著shift tab,那麼該如何detect呢?

引言: 不好意思想補充少少... 1. 如果加了inherit,即是話default的設定,對嗎? 2. 如果想做到按著shift tab,那麼該如何detect呢?

1.懂意思就好 2.以如下的方式判斷試試:

  If GetKeyState(VK_SHIFT ) < 0 Then
    // 按下 shift 鍵

-- 悟嗎？

1. 那inherited 是預設, 對嗎???? 2. 那句應該放在那裏呢? "CMDialogKey" 嗎 ?

有人能回答嗎?

引言: 1. 那inherited 是預設, 對嗎???? 2. 那句應該放在那裏呢? "CMDialogKey" 嗎 ?

1.inherited 是執行父代的行為 2. 試試:

procedure TForm1.CMDialogKey(var msg: TCMDialogKey);
begin
  if msg.Charcode <> VK_TAB then
  begin
    inherited;
    If GetKeyState(VK_SHIFT ) < 0 Then
      // 按下 shift 鍵
  end;
end;

-- 悟嗎？

procedure TForm1.CMDialogKey(Var Msg: TWMKEY); begin inherited; if (ActiveControl = ComboBox) Then Begin If (GetKeyState(VK_SHIFT ) < 0) And (Msg.Charcode = VK_TAB) Then Begin Form1.TabOrder := Form1.TabOrder - 1; End; If (Msg.Charcode = VK_RETURN) Then begin StringGrid.Col := 4; StringGrid.SetFocus; End; End; end; 這是我的代碼, 因為我將combox 和stringgrid連在一起,當user focus在某一個欄位時就會focus on combobox,當user按下enter,就會向右移一格,如果按下shift tab 就會跳去上個taborder,但結果好像不太明顯,要按兩下tab shift才有反應,why?

有人能解答嗎?