delphi實現全域性快捷鍵的功能

沒什麼複雜的，只是最近才用，跟大家分享一下

全域性快捷鍵就是焦點不在這個系統時也管用的快捷鍵

fshowkeyid := globaladdatom('mykey_show');

//f12
registerhotkey(handle, fshowkeyid, 0 vk_f12);           
//ctrl+f12
registerhotkey(handle, fshowkeyid1, mod_control, vk_f12);   
//alt+f12
registerhotkey(handle, fshowkeyid2, mod_alt, vk_f12);   
//ctrl+alt+f12
registerhotkey(handle, fshowkeyid3, mod_control + mod_alt, vk_f12);

函式宣告如下

procedure hotykey(var msg:tmessage); message wm_hotkey;

procedure tfmain.hotykey(var msg: tmessage); 

begin
if (msg.lparamlo=mod_control) and ( msg.lparamhi = vk_f12) then
//處理邏輯
end;

unregisterhotkey( handle, fshowkeyid );

常用 Delphi 快捷鍵

1 塊選 alt 滑鼠左鍵 或者 shift alt 方向鍵 2 模板 ctrl j 3 整塊移動 ctrl shift i 右移 ctrl shift u 左移 4 原始碼定位 ctrl 滑鼠左鍵 將滑鼠指向變數名 單元名 類名，再用該熱鍵可定位到相應的說明 5 定義與實現切換 shift ctr...

DELPHI快捷鍵 轉

下面的快捷鍵大部分在delphi的選單中找不到，其中有一些還是非常有用的。ctrl pageup 將游標移至本屏的第一行，螢幕不滾動。ctrl pagedown 將游標移至本屏的最後一行，螢幕不滾動。ctrl 向下滾動螢幕，游標跟隨滾動不出本屏。ctrl 向上滾動螢幕，游標跟隨滾動不出本屏。ctrl...

delphi常用快捷鍵

黑色字型表示自己還用得不多的快捷鍵 1 塊選 alt 滑鼠左鍵 或者 shift alt 方向鍵 2 模板 ctrl j 3 整塊移動 ctrl shift i 右移 ctrl shift u 左移 4 原始碼定位 ctrl 滑鼠左鍵 將滑鼠指向變數名 單元名 類名，再用該熱鍵可定位到相應的說明 5...