delphi有没有一个透明容器，我想在里面装上十几个LABEL，用来做成在窗体上从下到上的滚动字幕，或有没有好的办法实现滚动字幕？

Question

主要是几十个LABEL，用TIMER移动很不好控制位置，我想要一个东西，在这里面已排好位置，只移动这个容器就行了

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Mask;type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    MaskEdit3: TMaskEdit;
    MaskEdit4: TMaskEdit;
    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
panel1.Top:=panel1.Top -1 ;
if ( panel1.Top <= panel1.Width  - 400) then
panel1.Top := form1.Height  ;
end;end.

Answer 2

上面的代码右实现，你试试，我在win 2000 sever + delphi 7.0 下通过了