调查：大伙究竟希望把Delphi的默认Ctrl+Space的热键改成什么？ (200分)

ctrl+alt+del

我的观点和李张柏芝很相似，毕竟用惯ctrl+space了，如果非要该，我赞成Alt+space

还是保留Ctrl+Space
把输入法的给改掉！自己动手就可以了（输入法留那么多干嘛！）

Ctrl+Space
要改就改输入法的快捷方式

我已经改成Ctrl+U了。下面是代码，不算长，安装方法我就不说了，大家都是高手～
{ *************************************************************************** }
{ }
{ Delphi 的IDE代码自动完成快捷键替换程序 UnitNewKeyMap.pas }
{ }
{ wr960204(王锐) 2002-2-20 }
{ }
{ *************************************************************************** }

unit UnitNewKeyMap;

interface

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

procedure Register;

implementation

type //把类写到implementation中免得不必要的访问
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;

procedure Register;
begin
(BorlandIDEServices as
IOTAKeyBoardServices).AddKeyboardBinding(TBufferList.Create);
end;

procedure TBufferList.BindKeyboard(const BindingServices:
IOTAKeyBindingServices);
begin
BindingServices.AddKeyBinding([ShortCut(Ord('U'), [ssCtrl])],
CodeCompletion, Pointer(csCodeList or csManual));
end;

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 := '代码自动完成解决方案';
end;

function TBufferList.GetName: string;
begin
Result := 'NewKeyMap';
end;

end.

我把输入法的CTRL+SPACE去了。因为只用一种输入法，所以CTRL+SHIFT和CTRL+SPACE的用途一样。我希望不要改，如果一定要改就CTRL+K吧，和CTRL+J近些

抱歉了，怪我没表达清楚。默认的Ctrl+Space我们是不改的，而是要添加一个快捷键。
非常高兴看到这么多朋友的支持。结贴，给分。