delphi - 如何在 Delphi 的 IDE 上下文菜单中添加菜单项

Question

我正在尝试在 Delphi 的 IDE 中添加一些功能以方便自己。我发现了如何使用 INTAServices.MainMenu 将菜单项添加到 IDE 主菜单，还能够创建一些自定义组件编辑器，因此我可以在组件的上下文菜单中拥有自己的菜单项。但我想在源代码编辑器的上下文菜单中添加一些功能。我想在源编辑器中选择一些文本并右键单击它，这样我就可以按照我需要的方式转换它，使用 IOTAEditorServices.TopView.buffer.EditBlock.text 和 IOTAEditorServices.TopView.Buffer.EditPosition.InsertText(newText); 这可能吗？或者最简单的方法是使用主菜单项的快捷方式？

谢谢。

Answer 1

实际上它是一行代码： myPopup := TPopupMenu(editorServices.TopView.GetEditWindow.Form.FindComponent('EditorLocalMenu'));