delphi 修改代碼補全的快捷鍵(由Ctrl+Space 改為 Ctrl + alt + Space)

delphi 的IDE快捷鍵與輸入法切換鍵中突，以往的解決方法是下載一個ImeTool修改 windows 系統的快捷鍵

在 xp win7 都好使，但在win 10經常是修改完后，重啟又失效了。

本方法采用 Open Tools API 編寫是一個組件。安裝方法:

菜單-->Component -->install Component 然后選擇此本單元，然后就瞎折騰吧。就好了。

源碼下載

D7_KeyMapping下載 ,  XE8_KeyMapping下載

unit EagleBufferList;

interface

procedure Register;

implementation

uses Windows, Classes, SysUtils, Menus, ToolsAPI, Controls;

type
  TBufferList = class(TNotifierObject, IUnknown, IOTANotifier, IOTAKeyboardBinding)
    function GetBindingType: TBindingType;
    function GetDisplayName: string;
    function GetName: string;
    //指定快捷鍵
    procedure BindKeyboard(const BindingServices: IOTAKeyBindingServices);
  protected
    procedure CodeCompletion(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
  end;

resourcestring
  sBufferList = 'Eagle''s Buffer List';

  // register this key binding
procedure Register;
begin
  (BorlandIDEServices as IOTAKeyBoardServices).AddKeyboardBinding(TBufferList.Create);
end;

{ TBufferList }

// the code to bind key
procedure TBufferList.BindKeyboard(const BindingServices: IOTAKeyBindingServices);
begin
  BindingServices.AddKeyBinding([ShortCut(Ord('P'), [ssShift, ssCtrl, ssAlt])], CodeCompletion,
    Pointer(csCodeList or csManual));
  BindingServices.AddKeyBinding([ShortCut(Ord('O'), [ssShift, ssCtrl, ssAlt])], CodeCompletion,
    Pointer(csParamList or csManual));
  BindingServices.AddKeyBinding([ShortCut(Ord(' '), [ssCtrl, ssAlt])], CodeCompletion,
    Pointer(csCodeList or csParamList or csManual));
  { 1，2句是原作者寫的
    3句是我加的 把代碼補完快捷鍵 替換為 ctrl + alt + space
  }
end;

// do code completion
procedure TBufferList.CodeCompletion(const Context: IOTAKeyContext; KeyCode: TShortcut;
  var BindingResult: TKeyBindingResult);
begin

  (Context.EditBuffer.TopView as IOTAEditActions).CodeCompletion(Byte(Context.Context));
  BindingResult := krHandled;

end;

function TBufferList.GetBindingType: TBindingType;
begin
  Result := btPartial;
end;

function TBufferList.GetDisplayName: string;
begin
  Result := sBufferList;
end;

function TBufferList.GetName: string;
begin
  Result := 'EagleKing.BufferList'; // do not localize
end;

end.

附：delphi 進階基礎技能說明