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

Question

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

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

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

谢谢：
Junifer lamda
示例用户2
Coder Monalisa
等

一切都按预期工作，我已将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）以避免滚动时闪烁。