delphi - Delphi：允许水平/垂直滚动条显示标准弹出菜单？

Question

我用的是德尔福7。我使用自定义备忘录控件，TSyntaxMemo 组件。

我看到许多应用程序（记事本、Notepad++、uTorrent、...）使用标准的滚动条弹出菜单：

• 滚动到这里
• 向上
• 下
• 向上翻页
• 向下翻页
• 向上滑动
• 向下滚动

（这是垂直条的列表）。如何在“我的”备忘录中使用此类菜单作为滚动条？没有手工制作这些菜单。

Answer 1

您根本不需要做任何事情来使该菜单显示在 WindowsEDIT控件中。这是由控件实现的标准系统菜单。它出现在TMemo添加到普通 VCL 表单应用程序中，因为它是控件TMemo多行变体的简单包装器。EDIT

这是我的 .dfm 文件中所需的全部内容：

object Form1: TForm1
  object Memo1: TMemo
    Align = alClient
    ScrollBars = ssVertical
  end
end

这是系统提供的功能。如果您的控件没有那样做，那么我可以想到以下原因：

1. 您的控件不是 WindowsEDIT控件。
2. 您的控件是一个EDIT控件，但它没有使用导致此菜单的默认消息处理程序。

如果第 1 项是原因，那么您无法让系统显示菜单。如果你的控件不是一个EDIT控件，你几乎不能指望它会神奇地表现得像一个控件。在第 2 项的情况下，您需要确定控件如何停止导致菜单由控件的默认消息处理程序处理的消息。