使用 TTimer 滚动备忘录文本仅显示前 3 行

Question

我现在要做的是使用 TMemo 组件和 TTimer 创建一个滚动信用文本

 procedure TAboutBox.Timer1Timer(Sender: TObject);
 begin
 Memo1.ScrollBy(0,-1);
 end;

Tmemo 行包含信用文本，类似于：

谢谢你：
Junifer lamda
示例用户 2
蒙娜丽莎编码器
等等

一切都按预期工作，我将 timer.interval 设置为 1ms ，文本滚动流畅，但它只显示前 3 行，然后显示一个空白区域，除非我在备忘录中使用鼠标手动单击并拖动，然后它显示一些行，然后当我释放时它又消失了。

我尝试使用 TRichedit 和 TListBox，但问题仍然存在。这怎么可能？

Answer 1

在我看来，ScrollBy 并非旨在满足您的需求。更何况我觉得TMemo也没有必要。

我可能会使用标签来执行此操作并将其移动到计时器事件中。像这样：

procedure TScrollingTextForm.FormCreate(Sender: TObject);
begin
  Label1.Caption :=
    'Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do '+
    'eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad '+
    'minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip '+
    'ex ea commodo consequat. Duis aute irure dolor in reprehenderit in '+
    'voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur '+
    'sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt '+
    'mollit anim id est laborum.';
  Label1.Top := ClientHeight;
end;

procedure TScrollingTextForm.Timer1Timer(Sender: TObject);
begin
  Label1.Top := Label1.Top - 1;
end;

我发现我需要使表单双缓冲 (DoubleBuffered := True) 以避免滚动时闪烁。