程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 在DLL中封裝的VCL窗體Tab鍵響應的問題

在DLL中封裝的VCL窗體Tab鍵響應的問題

編輯:Delphi

在DLL中的子窗體不會響應Tab按鍵的,這個時候就需要手動去指定Tab鍵的操作,但是前提是主窗體要向這個窗體發送一個消息,一個Tab鍵按下的消息。基本順序是這樣的:

  1. 主窗體用Hook技術捕獲Tab按鍵並向活動子窗體發送一個Tab鍵按下的消息

  2. 子窗體手動定義一個Tab鍵被按下的處理(需要用到FormKeyDown事件)。

  3. 移動到下一個焦點的WinAPI函數:Perform(WM_NEXTDLGCTL,0,0);

  4.移動到上一個焦點的函數:Perform(WM_NEXTDLGCTL,1,0)

  DLL中封裝的子窗體代碼:

1procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
2  Shift: TShiftState);
3begin
4  if (ssShift in Shift) AND (Key = VK_TAB) then
5    Perform(WM_NEXTDLGCTL,1,0)
6  else if Key = VK_Tab then
7    Perform(WM_NEXTDLGCTL,0,0);
8end;

  主窗體的Hook代碼:

 1function KeyHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM):LRESULT;
 2//實現回調函數
 3begin
 4  //Tab鍵處理函數
 5  if (nCode = HC_ACTION) AND (wParam = VK_TAB) AND (lParam = 983041) then
 6  begin
 7    if screen.ActiveForm.Handle <> Form2.Handle then
 8      SendMessage(screen.ActiveForm.Handle, WM_KEYDOWN,VK_TAB,0);//直接跳到下一個控件上
 9  end;
10  Result := CallNextHookEx(hook,nCode,wParam,lParam);
11end;

1procedure TForm2.FormCreate(Sender: TObject);
2//窗體創建過程中的代碼
3begin
4  //設置鍵盤鉤子
5  hook := SetWindowsHookEx(WH_KEYBOARD, @KeyHook, 0, GetCurrentThreadID);
6end; 
Code
1procedure TForm2.FormDestroy(Sender: TObject);
2//窗體銷毀的代碼
3begin
4  //釋放鍵盤鉤子
5  UnHookWindowsHookEx(hook);
6end;

1var
2  hook: HHook;//設置Hook單元變量

4{在Implementation部分上面Interface部分聲明鍵盤鉤子回調函數; 其參數傳遞方式要用 API 的 stdcall}
5function KeyHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM):LRESULT;stdcall;


  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved