那位大侠可以告訴我,甚麼功能強大控件用來做圖片或者是文字的滾動?謝謝

Question

那位大侠可以告訴我,甚麼功能強大控件用來做圖片或者是文字的滾動?謝謝

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  y:integer;
implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
   timer1.Interval:=25;
   label1.Transparent:=true;
   label1.Caption:='字幕滾動測試'+#13+#13+'　　　　　---花好月圓　　';
   self.DoubleBuffered:=true;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
    y:=y-1;
    if y<0 then y:=200;
    label1.Top:=y;
end;end.