Einzelnen Beitrag anzeigen

Benutzerbild von Rastaman
Rastaman

Registriert seit: 6. Jan 2005
Ort: Lübbecke
575 Beiträge
 
Turbo C++
 
#1

[unit] TTextScroll

  Alt 7. Sep 2005, 16:57
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
Angehängte Dateien
Dateityp: dcu textscroll_129.dcu (3,9 KB, 10x aufgerufen)
Chuck Norris has counted to infinity ... twice!
  Mit Zitat antworten Zitat