可以改的哦,用ide扩展就可以了,我给你发出部分代码吧,台湾人做的, 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;呵呵,说句实话,从我开始稳定上网后,发现CSDN的用处很有限,好像高手都不来这里,好多资料也都找不到,然后论坛只见到好多菜鸟,悲哀,这还是中国最大的最专业的程序员网站呢,当然csdn也有好多高手的哦.做程序的英文要好.
Delphi定义的热键这么死板吗? 完全不能允许用户定制吗 ?
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;呵呵,说句实话,从我开始稳定上网后,发现CSDN的用处很有限,好像高手都不来这里,好多资料也都找不到,然后论坛只见到好多菜鸟,悲哀,这还是中国最大的最专业的程序员网站呢,当然csdn也有好多高手的哦.做程序的英文要好.
http://download.csdn.net/source/2081058