Memo Scrollen

[faux]

Hallo!

Ich will ein Memo so Programmieren, dass es immer ganz nach unten scrollt. Ich hab auch einiges mit der Delphi - Suche gefunden, nur verweisen alle Links auf www.swissdelphicenter.ch. Nur geht die Seite aus irgend einem Grund grad nicht..
Kann mir jemand die "Lösung" sagen???

Danke schon mal....

P.S. Falls bei wem die Site gehen sollte (was ich jedoch bezweifle, denn dann würde sie ja bei mir auch gehen....), der link ist www.swissdelphicenter.ch/de/showcode.php?id=205

[Steve]

Hi,

vermutlich dürfte sowas hier, an entsprechender Stelle aufgerufen, helfen:
SendMessage(memoHandle, WM_VSCROLL, SB_BOTTOM, 0); Gruß
Stephan

[faux]

Das hab ich auch gesehen, nur kenn ich mich nicht damit aus...

Was ist memoHandle, WM_VSCROLL und SB_BUTTON?

[jensw_2000]

so funktioniert es ...

Code:

 

var
  ScrollBy:Integer;
begin
  
  ....
   
  ScrollBy:=momo.lines.count; // Anzahl der zu scrollenden Zeilen (negative Zahlen schrollen aufwärts)
                              // Wenn Scrollby > oder = Momo.lines.count dann wird zum Anfang, 
                                 bzw. zum Ende gescollt    

  Memo.Perform(Messages.EM_LINESCROLL, 0, ScrollBy);

[Pr0g]

Zitat von faux:

Das hab ich auch gesehen, nur kenn ich mich nicht damit aus...

Was ist memoHandle, WM_VSCROLL und SB_BUTTON?

Der Befehl SendMessage erwartet vier Parameter. Zuerst das Handle des Controls, an welches die Message geschickt werden soll. Bei dir wäre es das Handle des Memos, also bspw. "Memo1.Handle". Der zweite Parameter gibt die Message an, welche versendet werden soll. Da du vertikal scrollen willst, ist es die Message "WM_VSCROLL". Der dritte und vierte Parameter ist je nach verwendeter Message unterschiedlich und dient zum übermitteln weiterer Daten. In deinem Fall wird im dritten Parameter angegeben, wohin gescrollt werden soll. Mit "SB_BOTTOM" (nicht Button ) wird angegeben, dass nach unten gescrollt werden soll. Der letzte Parameter wird nicht gebraucht, bleibt daher leer (0).

MfG Pr0g