字幕滚动

Question

我想把数据库中的若干条记录取出来，做成个字幕滚动（从屏幕下方滚到上方），如何实现？

Answer 1

数据放入MEMO（MEMO最大化）
Memo1.Perform(EM_SCROLL, SB_LINEDOWN, 0);自动下滚

Answer 2

procedure timer1.ontimer
begin
lable.left:=label.left+2
end;

Answer 3

这样做不行的，
procedure timer1.ontimer
begin
lable.left:=label.left+2
end;
这个只能显示label那个区域里面有限的几个字。我要求滚动的内容是数据表里的一组数据。

Answer 4

procedure TRollShowForm.tmrTimer(Sender: TObject);
begin
  y := y - 1;
  Label1.Top := y;
end;