[unit] TTextScroll

[Rastaman]

Moinsen

Also wie der Name schon sagt gehts um Scrolltexte.
Und zwar hier mal ein kleines Beispiel

Delphi-Quellcode:

var 
  scroll: TTextScroll;
begin
  scroll := TTextScroll.Create;
  scroll.SetText('Der zu scrollende Text');
  scroll.SetDelay(1000); // Geschwindigkeite ( Standard 1000 )
  scroll.SetHandle(Form1.Handle) //Fensterhandle 
                                 //Funktioniert mit Edits, Buttons, Forms, Labels etc.
  scroll.SetStatus(True); //Ein oder aus ? Standard ist ein
  scroll.SetLength(5) //Anzuzeigende Zeichen
end;

so, fettich
Ihr habt einen schön scrollenden Text in der Form Caption den ihr beliebig verändern könnt.
Man kann alles auch noch auslesen anstatt setzen.
Einfach aus dem Set ein Get machen

Bitte testen !

//EDIT: Getestet unter Delphi 05 PE
Für den Rest hab ich kp