Delphi Modify the code to complete the shortcut keys (changed from Ctrl+space to Ctrl + ALT + Space) (by modifying the opentool in effect)

Delphi IDE shortcut key and Input method toggle key In the past, the solution is to download a imetool to modify the Windows system shortcut keys

It works in XP Win7, but after the win 10 is often modified, the reboot fails again.

This method is written as a component using the Open Tools API. Installation method:

Menu-->component-->install Component then select this unit and then just toss it. Just fine.

SOURCE download

Uniteaglebufferlist;InterfaceprocedureRegister;ImplementationusesWindows, Classes, Sysutils, Menus, Toolsapi, Controls;typetbufferlist=class(Tnotifierobject, IUnknown, Iotanotifier, iotakeyboardbinding)functionGetbindingtype:tbindingtype; functionGetDisplayName:string; functionGetName:string; //specifying shortcut keys    procedureBindkeyboard (Constbindingservices:iotakeybindingservices); protected    procedureCodecompletion (ConstContext:iotakeycontext; Keycode:tshortcut;varBindingresult:tkeybindingresult); End;resourcestringsbufferlist='Eagle ' s Buffer List'; //Register this key bindingprocedureRegister;begin(borlandideservices asiotakeyboardservices). Addkeyboardbinding (tbufferlist.Create);End;{tbufferlist}//The code to bind keyprocedureTbufferlist.bindkeyboard (Constbindingservices:iotakeybindingservices);beginbindingservices.addkeybinding ([ShortCut (Ord ('P'), [Ssshift, Ssctrl, Ssalt]], codecompletion, Pointer (cscodelistorcsmanual)); Bindingservices.addkeybinding ([ShortCut (Ord ('O'), [Ssshift, Ssctrl, Ssalt]], codecompletion, Pointer (csparamlistorcsmanual)); Bindingservices.addkeybinding ([ShortCut (Ord (' '), [Ssctrl, Ssalt]], codecompletion, Pointer (cscodelistorCsparamlistorcsmanual)); {1, 2 is the original author of the 3 sentence is that I added the code after the shortcut keys replaced with CTRL + ALT + Space}End;//Do code completionprocedureTbufferlist.codecompletion (ConstContext:iotakeycontext;  Keycode:tshortcut; varbindingresult:tkeybindingresult);begin(Context.EditBuffer.TopView asiotaeditactions).  Codecompletion (Byte (Context.context)); Bindingresult:=krhandled;End;functionTBufferList.GetBindingType:TBindingType;beginResult:=btpartial;End;functionTbufferlist.getdisplayname:string;beginResult:=sbufferlist;End;functionTbufferlist.getname:string;beginResult:='eagleking.bufferlist';//Do not LocalizeEnd;End.

Http://www.cnblogs.com/lackey/p/5373761.html

Delphi Modify the code completion of the shortcut keys (changed from Ctrl+space to Ctrl + ALT + Space) (by modifying the opentool in effect)