怎样修改Delphi的Ctrl+Space快捷键
1个回答
展开全部
可以改的哦,用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也有好多高手的哦.
做程序的英文要好.
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也有好多高手的哦.
做程序的英文要好.
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询