delphi - delphi自动滚动备忘录

Question

delphi 是否包含允许从数据库加载自动滚动文本的组件，就像在新闻网站中一样？

Tt 适用于 delphi 7 应用程序，需要垂直滚动。

Answer 1

对于如此简单的任务，您不需要购买商业组件!您需要做的就是向该备忘录控件发送一条 EM_LINESCROLL 消息，使其滚动到最后一行:

procedure ScrollToLastLine(Memo: TMemo);
begin
  SendMessage(Memo.Handle, EM_LINESCROLL, 0,Memo.Lines.Count);
end;

如果您的备忘录对用户是只读的，并且由应用程序自动更新，您可以在其 OnChange 事件处理程序中调用上述过程，以便每当备忘录中的文本发生更改时，它都会自动更新向下滚动到最后一行。