Laufschrift / Marquee



  • 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;
    }
    


  • 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



  • 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


Anmelden zum Antworten