Laufschrift / Marquee

csonline

Hallo zusammen,

hat jemand ne Idee, wie man möglichst einfach eine Laufschrift, z.b. auf einem Label realisieren kann ?

Habe BCB5.0 Enterprise und Windows NT4.0

Danke im voraus

AnsiString first = AppText.SubString(1,1);
  AppText.Delete(1,1);
  AppText = AppText + first;

  Application->Title = AppText; 
  Caption = AppText;
  Button1->Caption=AppText;
  Label1->Caption=AppText;
  GroupBox1->Caption=AppText;

Funzt bei so ziemlich allem, was eine Caption hat.

Ach ja, das ganze kommt natürlich in einen Timer.

Konnte meinen Beitrag nicht editieren?

Also erstmal: Das Board lässt mich nicht einloggen

So, und hier mal der komplette Code (Hab noch einiges vergessen ):

AnsiString AppText;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  AppText = "This is a window that has a very long text";
  AppText = AppText + " *** ";
  Caption = AppText;

  Application->Title = AppText;
  Timer1->Interval = 20; // Das war eine passende Geschwindigkeit

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  AnsiString first = AppText.SubString(1,1);
  AppText.Delete(1,1);
  AppText = AppText + first;

  Application->Title = AppText;
  Caption = AppText;
  Button1->Caption=AppText;
  Label1->Caption=AppText;
  DynaLED1->Caption=AppText;
  LedGroup1->Caption=UpperCase(AppText);
  GroupBox1->Caption=AppText;
}

junix

Liebe Leute lest doch auch mal was über der Thread-liste steht und befolgt es auch. Genau dein Probem wurde in der FAQ ausführlich behandelt!

-junix

csonline

Hallo Junix,

sorry, daß ich da nicht reingeschaut habe, hab mit der suchen funktion natürlich vorher danach gesucht, aber dann nichts gefunden.... werde in zukunft auch in den FAQs nachschauen...

Und danke dem edlen Spender, das klappt ganz toll !!!

Grüße an alle

CS