跑马灯问题

Question

字幕跑马灯

Answer 1

就是了，在timer里不停地drawtext就可以了嘛

Answer 2

弄个timer，用下面几行代码就够了var
  s:PChar;
  x,y,speed:Integer;procedure TForm1.tmr1Timer(Sender: TObject);
begin
  tmr1.Interval := 100; // Interval 和 speed 决定滚动速度
  DoubleBuffered := True;
  s := '今天正月十五元宵节';
  Dec(x, speed); // 递减x,以便由右往左滚动起来  
  Repaint;// 重绘，以便擦除上一次 TextOut 的内容
  Canvas.Font.Size := 16;        // 字尺寸
  Canvas.Font.Color := clYellow; // 黄色字
  Canvas.Font.Style := [fsBold]; // 粗体字
  Canvas.Brush.Style := bsClear; // 使字背景透明
  Canvas.TextOut(x, y, s); // 画出文字
end;

Answer 3

 // 补上两行，给x,y赋初值
  x := ClientWidth;
  y := 10;

Answer 4

学习中，不过看LZ一口气用了3个Timer就有点头大