关于Memo的东西来考考大家（不要小看这个问题哦，说不定你也用得上），有兴趣的来看看（962veiri)

Question

化两分钟写出来的：var
  x,x1:PRect;
begin
  new(x);
  new(x1);
  x^ := Memo1.ClientRect;
  x1^ := Memo1.ClientRect;
  ScrollWindow(Memo1.Handle,0,-1,x,x1);
end;但是只能滚动，不能更新，可能有更好的方法，ScrollWindowEx、ScrollDC...
没有时间试了

Answer 1

TechnoFantasy(www.applevb.com)　
  好想效果不是很好呀？不知道什么原因，它里面有的行乱位了？？另外，他不能当滚到最后一行的时候有自动从第一行开始，怎么实现？

Answer 2

呵呵，我编写的一个文本编辑软件MiniPad 2000中就有平滑滚屏的功能。打开一个文件，进入“阅读模式”，按下“平滑滚屏”按钮看看，效果还不错吧。下载地址：http://www.skycn.com/down.php?id=3657。

Answer 3

dengzhen(夜深独座)：
  唉，你把源码贴出来不就可以了？成功就结账了

Answer 4

//变态方法仅供参考
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Top := Label1.Top - 1;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Top := 1;
  Label1.Left := 1;
  Label1.AutoSize := False;
  Label1.Width := Memo1.Width - 2;
  Label1.Height := Memo1.Height * 2;
  Label1.Parent := Memo1;
  Timer1.Interval := 10;
  CheckBox1.Checked := False;
  CheckBox1Click(CheckBox1);
end;procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  Label1.Top := 1;
  Timer1.Enabled := TCheckBox(Sender).Checked;
  Label1.Visible := TCheckBox(Sender).Checked;
  Label1.Caption := Memo1.Text;
  Label1.WordWrap := Memo1.WordWrap;
end;

Answer 5

我一直想这方面的问题，我想在form上作一段滚动的文字，像电视剧结束后的演员表一样，用label应该怎么做？有什么好方法吗？

Answer 6

zswang(伴水)(被黑中)
    这样不行吧？？？

Answer 7

to：　zswang(伴水)(被黑中)　
不简单，怎么和我想到一起去了。我以为只有我才会想到这种方法的。

Answer 8

呵呵，我的方法是直接在PaintBox中用TextOut输出文本，在程序中自行处理文字的换行、消隐、行距等。采用这种方法的滚屏效果相当好，与ReadBook不相上下。

Answer 9

dengzhen(夜深独座)：
    你的方法确实好，但是能提供一点源代码嘛？不能的话，我还是不知道，呵呵

Answer 10

dengzhen(夜深独座)：
    你的方法确实好，但是能提供一点源代码嘛？不能的话，我还是不知道，呵呵 

Answer 11

如果你要显示的文件行数不多，有一个最简单的方法：把整个文件读入一个StringList，然后用一个Timer控制，把每一行文字Textout到PaintBox中，每隔一定的时间就用背景色填充PaintBox，并把Textout的纵坐标往上移动一个象素。这就实现了平滑滚屏。

Answer 12

dengzhen(夜深独座)：
    你的方法确实好，但是能提供一点源代码嘛？不能的话，我还是不知道，呵呵 

Answer 13

对不起，现在源代码不在我身边。但是你按照我的思路，编写出相应的程序应当不难啊。
在OnTimer事件中，写如下代码：(我随手写的，可能有错，你自己调试一下吧)PaintBox1.Canvas.Brush.Color := clwhite;
PaintBox1.Canvas.FillRect(Rect(0,0,PaintBox1.Width, PaintBox1.Height));
PaintBox1.Canvas.Font.Color := clBlack;
PaintBox1.Canvas.Font.Name:='宋体';
PaintBox1.Canvas.Font.Size:=10;
PaintBox1.Canvas.Brush.Style := bsClear;
PaintBox1.Canvas.TextOut(10,y,'这是一个测试');   //y为一个全局变量
dec(y);  

Answer 14

我再说明一下：在Form中放一个PaintBox，一个Timer，设Y为Integer类型的全局变量。在OnTimer事件中写入我上面所说的代码。

Answer 15

有用!有用!有用!有用!有用!有用!有用!有用!还望高人指点一二.
我原来是用Label来实现平滑移动,但用它没法显示较大文本,后来也曾使用memo,但移动起来太"硬"了,一点都不平滑很不舒服.如果有高人能相告定当感激不尽.

Answer 16

  dengzhen(夜深独座）：
     希望你不吝赐教！！将源吗尽贴一下，旅人在这里谢过了！！！

Answer 17

我刚才写了一个完整的示例程序，现在贴上来给你。//main.pasunit main;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;
type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure PaintBox1Paint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  Y:integer;
implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
    y:=paintbox1.Height;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
   PaintBox1.Canvas.Font.Color := clBlue;
   PaintBox1.Canvas.TextOut(50,y,'这是平滑滚屏示例');
   PaintBox1.Canvas.Font.Color := clBlack;
   PaintBox1.Canvas.TextOut(60,y+PaintBox1.Canvas.Font.Size+8,'效果还不错吧');
   dec(y);
   if y<-(PaintBox1.Canvas.Font.Size+8)*2 then y:=paintbox1.Height;
end;procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
    PaintBox1.Canvas.Font.Name:='宋体';
    PaintBox1.Canvas.Font.Size:=10;
    PaintBox1.Canvas.Brush.Color := clwhite;
    PaintBox1.Canvas.FillRect(Rect(0,0,PaintBox1.Width, PaintBox1.Height));
end;
end.
//main.dfm
object Form1: TForm1
  Left = 209
  Top = 142
  Width = 214
  Height = 202
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PaintBox1: TPaintBox
    Left = 0
    Top = 0
    Width = 206
    Height = 175
    Align = alClient
    OnPaint = PaintBox1Paint
  end
  object Timer1: TTimer
    Interval = 50
    OnTimer = Timer1Timer
    Left = 152
    Top = 128
  end
end

Answer 18

dengzhen(夜深独座)　:
  谢谢你的源吗，平滑滚屏我已经实现，但是按照你的做法的话，
paintbox会闪烁不停，请问你在你的WinPan里面是怎么实现的？？就是让屏幕不闪烁！！
谢谢

Answer 19

我前天随手编写的代码的确会产生闪烁，但昨天写好贴上来的完整源代码就不会闪烁，我已经试验过了。在MiniPad 2000中，是使用动态双缓冲技术实现平滑滚屏的，从理论上说，效果会好一些，但实际上与上面的代码效果差别不大。MiniPad 2000的源代码现在不在我身边，而且它的滚屏代码长达1000多行，我一下子没有办法重写出来，Sorry!

Answer 20

to 962veriri
能把你的原码贴出来吗？

Answer 21

我的源代码如下，循环滚屏实现了，但是屏幕会闪烁
var
  X,Y: Integer;//Y为字体输出的纵坐标，X为控制Y的值的变量procedure TForm1.FormCreate(Sender: TObject);
begin
  Y:=PaintBox1.Height;
  X:=Y;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);//从文件中读取内容到Memo
end;procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  PaintBox1.Canvas.Brush.Color := clwhite;
  PaintBox1.Canvas.FillRect(Rect(0,0,PaintBox1.Width, PaintBox1.Height));
  PaintBox1.Canvas.Font.Color := clBlack;
  PaintBox1.Canvas.Font.Name:='宋体';
  PaintBox1.Canvas.Font.Size:=10;
end;procedure TForm1.Timer1Timer(Sender: TObject);
var
  I:Integer;
begin
 for I:=0 to Memo1.Lines.Count do
  begin
    PaintBox1.Canvas.TextOut(10,Y,Memo1.Lines[I]);  //y为一个全局变量
    Y:=Y+PaintBox1.Canvas.Font.Size+6； //6为行间距，自己可以设定
  end;
  dec(X);                              
  Y:=X-1;                              //每次timer事件开始都对Y-1
  if Y<-(Memo1.Lines.Count)*(PaintBox1.Canvas.Font.Size+2) then //循环滚动
  begin
    Y:=PaintBox1.Height;
    X:=Y;
  end;
end;

Answer 22

dengzhen(夜深独座)　：　freevc(梦想飞)　
源代码贴出来了，你们看看吧

Answer 23

962veiri(风尘旅人): 你可以直接使用我昨天贴上来的完整源代码，只需把Textout部分修改为显示Memo各行就可以了，效果很好，不会闪烁。你可以运行我编译出来的示例程序，看看效果怎样。下载地址：http://www.software-power.com/programs/test.zip

Answer 24

dengzhen(夜深独座)：
    我的确实有闪烁，代码跟你的一样吧，你看了上面的代码嘛？另外，你是怎么处理他那里面的文字格式的比如说：Memo里面第一行居中，还有段落等格式的？就是要他跟Memo里面现实的格式一样