请教：如何在Delphi实现文本的滚动？

Question

有走马灯组件，网上很多，你找一下吧，一般是marquee的名称。

Answer 1

简单的滚动可以使用timer控件调用meno的top,left,完成。

Answer 2

可以使用EM_LINESCROLL消息来垂直或水平滚动文本框。
SendMessage(Edit1.Handle,EM_LINESCROLL,wParam,lParem)；
其中：  
wParam = (WPARAM) cxScroll; // 水平滚动的字符数。
lParam = (LPARAM) cyScroll; // 垂直滚动的行数
返回值：
发给多行文本框时，返回TRUE;发给单行文本框时FALSE. 
把文本框的外观修改一下就可以实现滚动字幕了。

Answer 3

vb中用sendmessage可以,不知道delphi中有没有类似的函数.
如果要vb的原码, [email protected]索要

Answer 4

如果你要的效果是像VCD里面的片头字幕那样可以这样做：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Timer1Timer(Sender: TObject);
begin
     label1.Top:=label1.top-2;
     if label1.top<=0 then
        label1.top:=200;
end;end.
其他控件也一样。只是要求其背景色与窗体一样，风格为扁平，无边框。
而淡入淡出则用十六进制数控制其颜色的RGB值即可。

Answer 5

用画布最好，需源代码e-mail给我（因为现在记不清是怎么了）[email protected]