Announcement

Collapse
No announcement yet.

Laufschrift

Collapse
X
Collapse
  • Page of 1
  • Filter
  • Time
  • Show
Clear All
new posts
Previous template Next
  • #1

    Laufschrift

    Ich möchte eine Laufschrift entwickeln. Habe mir überlegt, dafür die Komponente von TTimer abzuleiten. Nun möchte ich wissen wo ich ich meinen Quelltext (z.B. canvas.textout(5,8,'hallo')) hinschreiben muß, damit er beim starten des Timers auch abgearbeitet wird.

    bitte helft dem Anfänger
    Tags: None
  • #2
    <BODY bgColor=#ffffff>
    <DIV>Hallo,</DIV>
    <DIV>wenn ich so etwas anfange dann überlege ich mir immer zuerst: "Wie würde
    ich es machen, wenn das Ganze als normale </DIV>
    <DIV>Programmierung (ohne spezielle Komponente) zu funktionieren hätte?". </DIV>
    <DIV>&nbsp;</DIV>
    <DIV>Also Du würdest ja bei einer einfachen Programmierung&nbsp;auch im OnTimer
    Ereignis deinen Code plazieren, </DIV>
    <DIV>dammit bei jedem Auslösen des Timers etwas passiert. So auch hier.</DIV>
    <DIV>&nbsp;</DIV>
    <DIV>Du mußt in Deiner abgeleiteten Komponente nur das Timerereignis
    erweitern.</DIV>
    <DIV>Schau also in der TTimer Komponente nach wo OnTimer ausgelöst wird und
    erweitere an dieser Stelle Deine </DIV>
    <DIV>Komponente.</DIV>
    <DIV>&nbsp;</DIV>
    <DIV>Gruss Stefan</DIV></BODY></HTML&gt

    Comment

    • #3
      Hi!
      Wie, entwickeln?
      Naja hier ist mal ein Code, mitdem du eine Laufschrift in die Titelleiste bekommst!

      procedure TForm1.Timer1Timer(Sender: TObject);
      var
      S,S2: String;
      begin
      S :=Form1.Caption;
      S2 :=copy(S, length(S)-1,1);
      delete(S, length(S)-1,1);
      Form1.Caption :=S2+S;
      end;

      Gruß,
      Stanl

      Comment

      • #4
        Hallo Ilky,<br>die TTimer Komponente halte ich für einen äußerst ungünstigen Vorfahren für eine Laufschrift. Irgendwie fehlt TTimer eine Canvas.<br>Ich rate Dir Deine Laufschriftkomponente von TGraphicControl abzuleiten. Intern verwendest Du einen Timer um die Laufschrift zu aktualisieren.<br>Bei TGraphicControl-Nachfahren bin ich dazu übergegangen die Zeichenoperationen nicht direkt auf der TGraphicControl Canvas durchzuführen, sondern auf einem internen TBitmap Objekt. Wenn alles gezeichnet ist, kopiere ich TBitmap mit BitBlt auf die TGraphicControl-Canvas. BitBlt ist so schnell, das es dann nicht mehr flackert.<br>:-) Jens Schuman

        Comment

        • #5
          Ich denke, da braucht man keine Ableitung.
          Schau z.B. mal auf

          http://home.pages.at/dbr-software/delphi/lauf.htm

          oder auch

          http://home.pages.at/dbr-software/delphi/ticker.htm

          oder auch

          http://home.pages.at/dbr-software/delphi/senklauf.htm

          gruss DB

          Comment

          Previous template Next
          Working...
          X