Info Screen mit automatisch Scrollender Memo

[gsh]

Hi DPler

Ich sags euch ich hab echt im Forum gesucht aber nichts funktionierendes gefunden.

Ich hab folgendes schon probiert (mit TMemo und TRichEdit):

Delphi-Quellcode:

InfoMemo.ScrollBy(0, -20);  //aber er zeichnet es mi nicht neu
//  InfoMemo.Repaint;      // wenn ich des mache dann setzt er die Position zurück

Ich will doch nur des der Text automatisch nach oben geht :wall:
Bin ich zu blöd dafür oder seh ich die einfachheit des Lösungsweges nur nicht.

[Niko]

Hi,

bei mir funktioniert das ohne Probleme.

Versuchs doch mal mit einem etwas kleineren Wert statt der -20 oder probiers mal in einem neuen Projekt, vielleicht liegt der Fehler an anderer Stelle.

[Matze]

Müsste nicht etwas wie

Delphi-Quellcode:

Memo1.SelStart := 0;  // oder war's 1 *grübel*

gehen?

Oder was meinst du mit "automatisch nach oben geht" :gruebel:

[gsh]

@Niko: hab schon probiert

@Matze: nein geht nicht
ich meine des der Text langsam nach oben hin weg. Also eine Laufschrift nach oben

[gsh]

*push*

[Lannes]

Hallo,

das:

Delphi-Quellcode:

SendMessage(Memo1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);

im Zusammenhang mit einem Timer sollte funktionieren.

[gsh]

Gut des funkt.

Aber ich möchte nicht des der eine ganze Zeile gleich runterspringt weil sonst rukelt des so. Also wie kann ich des machen des es sagen wir mal 10 pixel oder eine halbe zeile oder so nur runterspringt?

[mh166]

In den Jedis gibts doch afaik eine entsprechende Kompo... Warum eigentlich das Rad immer neu erfinden. :zwinker:

mfg, mh166

[gsh]

und wie heisst die kompo?

[Daniel G]

TJVScrollText

Oder du nimmst TScrollingCredits, die nutze ich in meinem Programm "CPUiD"