請教高手 我的做法事在每一個Edit的KeyDown事件下，判斷key是否等於13，然後做SetFocus，可是我覺得很麻煩。所以想請教如何寫成共用程式。(如寫成function 讓所有程式都可以使用)或則說各位高手有什麼好辦法。 謝謝ㄜ

引言: 請教高手 我的做法事在每一個Edit的KeyDown事件下，判斷key是否等於13，然後做SetFocus，可是我覺得很麻煩。所以想請教如何寫成共用程式。(如寫成function 讓所有程式都可以使用)或則說各位高手有什麼好辦法。 謝謝ㄜ

scottirisa 你好 從以下連結下載DosMove http://delphi.ktop.com.tw/topic.php?topic_id=44491 安裝後，只要在你的Form放上該元件，然後好像把它的Active設為True就OK了。 若須更多關於DosMove的資訊,請在站上輸入[DosMove]搜尋就有好多資料說明。 發表人 - chance36 於 2004/03/24 18:31:44

引言: 請教高手 我的做法事在每一個Edit的KeyDown事件下，判斷key是否等於13，然後做SetFocus，可是我覺得很麻煩。所以想請教如何寫成共用程式。(如寫成function 讓所有程式都可以使用)或則說各位高手有什麼好辦法。 謝謝ㄜ

1. form KeyPreview屬性設true KeyDown事件 if(Key=VK_RETURN)then begin Key:=0; SendMessage(Handle,CN_KEYDOWN,VK_TAB,0); end; 2.使用HOOK攔劫.

scottirisa 你好:    用 TApplicationEvents 元件參考看看

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  Case Msg.message of
    WM_KEYDOWN:
        case msg.wParam of
          VK_RETURN: begin
            with Screen.ActiveForm do
                Perform(WM_NEXTDLGCTL,0,0);
          end;
        end;
  end;
end;

在TForm的KeyPress中加入以下程式碼：

  if Key = #13 then
  begin
    Key:= #0;
    Perform(WM_NextDlgCtl, 0, 0);
  end;

將TForm的KeyPreview屬性設為True 試試看是不是您想要的~

我的做法 Form KeyPreview屬性設true,  若有DBGrid的元件, 則DBGrid的Options屬性中的dgAlwaysShowEditor設true, 在Form的KeyDown事件  

 if Key=VK_RETURN then begin  //按Enter視同Tab鍵
      if ActiveControl is TCustomGrid then begin
         keybd_event(VK_TAB,0,0,0);
         keybd_event(VK_TAB,0,KEYEVENTF_KEYUP,0)
       end else
         sendMessage( handle, WM_NEXTDLGCTL, 0, 0);
  end;

按Enter就像按Tab鍵一樣了, 當然你的Form中Tab Order要排好你要的順序, 這樣就會照你的順序移動囉!!

謝謝大家ㄜ