DBMemo automatisch scrollen

[Rob]

Hallo Leute,

ich habe eine Anwendung geschrieben, bei der in einem Memofeld der Text und die Gitarrenakkorde eines Musiktitels angezeigt werden.
Dieser Text ist jedoch i.d.r. länger als das Memofeld so das der Anwender zwischendurch die Bildlaufleiste betätigen muß um die nächsten Textzeilen zu sehen.
Logischerweise muß der Anwender sein Gitarrenspiel dabei kurz unterbrechen um die Maus zu bedienen.

Meine Idee ist nun, das Feld automatisch scrollen zu lassen. Ich möchte dies über eine Timmerfunktion realisieren. Soweit kein Problem. Ich habe aber noch keine Funktion gefunden welche das Feld durchscrollt.
MOVEBY(X,Y) hilft nicht weiter, weil nur der sichtbare Text gescrollt wird.

Hat jemand einen Vorschlag

Robert

[Sharky]

hai Rob,

erst einmal "Willkommen in der Delphi-PRAXIS".

Eventuell hilft dir das weiter:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(Memo1.Handle,
    WM_VSCROLL,
    SB_LINEDOWN,
    0);
end;

[Rob]

Hi Sharky

ich habe deinen Vorschlag probiert. Funktioniert einwandfrei.
Danke !
Besteht die Möglichkeit den Cursor nach erfolgtem scrollen wieder an den Anfang zu setzen ?

Robert