delphi - 如何在delphi 7中的TMemo中将选定的文本属性更改为粗体？

Question

我使用 TMemo 来显示多行。

我想使用快捷键 Ctrl+B 将 TMemo 中选定的文本属性更改为粗体。

例如，用户输入“Hello, how are you?”在 Tmemo 中，我希望当用户选择“How”并按 Ctrl+B 时，只有“How”应该在该 TMemo 中以粗体显示。

我使用Delphi 7。

请提供建议以获得解决方案。感谢您的帮助。

Answer 1

您无法设置备忘录控件中文本的格式。您需要一个丰富的编辑控件，TRichEdit .

为了使当前选择加粗，您可以这样做:

RichEdit.SelAttributes.Style := RichEdit.SelAttributes.Style + [fsBold];

调用代码以响应 CTRL+A 等快捷方式的首选方法是使用操作。将 TActionList 添加到表单，并将操作添加到该操作列表。设置操作的 OnExecute 事件处理程序以指向执行所选文本粗体显示的代码。将 Shortcut 属性设置为 Ctrl+A。使用操作可以集中控制用户事件。通常，还可能有一个工具按钮、一个菜单项和一个上下文菜单项来执行相同的操作，这就是操作发挥作用的地方。