Label Ticker als Buchstaben-Laufschrift

[Mirilin]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;

type
  TMainForm = class(TForm)
    PanelMarquee: TPanel;
    Timer: TTimer;
    procedure TimerTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    Count : Integer;
    Text  : String;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

procedure TMainForm.TimerTimer(Sender: TObject);
begin
  PanelMarquee.Caption := copy(Text,1,Count);
  inc(Count);
  if Count>length(Text) then Count := 1;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Count := 1;
  Text := '1234567891234566789';
end;

end.