如何在 Memo 中钩住 ScrollBar 的外观？

How to hook the appearence of ScrollBar in Memo?

提问人：t232006 提问时间：11/4/2023 最后编辑：Remy Lebeaut232006 更新时间：11/4/2023 访问量：40

问：

有谁知道当滚动出现在 上时发送了什么消息？TMemo

我有一个带滚动条的。我想在文本填充窗口时减小字体大小。TMemo

我决定：当滚动出现时 - >减少字体。但是如何发现卷轴出现的那一刻呢？信息是什么？

Delphi WinAPI 滚动条 消息 备忘录

评论

1赞 SilverWarior 11/4/2023
你可以尝试类似的事情。我使用 +1 行来弥补这样一个事实，即仅使用 Enter 键单步执行新行不会增加行数，因为换行符是前一行的一部分。如果没有第一行，将隐藏，直到至少有一个字符写入最后一行。当然，如果行数超过一定数量，您可能希望开始更改文本高度。但是，如果单行因太长而拆分为多行，则不起作用。Memo1.Font.Height := Memo1.Height div (Memo1.Lines.Count+1);OnChange
1赞 Remy Lebeau 11/4/2023
这听起来像是一个 XY 问题。是什么让您认为滚动条出现时会发送任何消息？

答： 暂无答案

上一个：R 中的生存分析 - 将 Kaplan Meier 图转换为 X = 连续变量，Y = P（生存），彩色线 = 所选时间点

下一个：如果服务总线队列中未使用消息，需要设置警报？