Memo scrollen

[Relicted]

Huhu!

Habe ne dringliche frage:

ich möchte ein memo hoch und runter scrollen... so step by step... zeile für zeile quasi. nicht nach ganz unten oder ganz oben.

leider habe ich noch nix passendes gefunden und mir rennt gerade etwas die zeit davon. wäre schön wenn ihr mir helfen könntet.

Gruß
Reli

[arnold mueller]

Delphi-Quellcode:

   SendMessage(Memo.Handle,WM_VSCROLL,SB_LINEDOWN,0)

(Snip Delphi Hilfe)

SB_BOTTOM Scrolls to the lower right.
SB_ENDSCROLL Ends scroll.
SB_LINEDOWN Scrolls one line down.
SB_LINEUP Scrolls one line up.
SB_PAGEDOWN Scrolls one page down.
SB_PAGEUP Scrolls one page up.
SB_THUMBPOSITION Scrolls to the absolute position. The current position is specified by the nPos parameter.
SB_THUMBTRACK Drags scroll box to the specified position. The current position is specified by the nPos parameter.
SB_TOP Scrolls to the upper left.


-
Arno

[Relicted]

danke..

[Nicodius]

ich sehe dass das topic schon ewig alt ist, aber würde da gerne anknüpfen.
Ich habe in einer Listbox gleich viele einträge wie Zeilen in einem Richedit.
Nun würde ich gerne bei einem klick auf ein listbox item genau zu jener zeile scrollen die selektiert ist, oder so dass sie sich dann in der mitte befindet.

SendMessage(Log_Output.Handle,WM_VSCROLL,SB_THUMBP OSITION ,xrow) wobei xrow der Itemindex der listbox ist, hat leidern icht funktioniert.

Gibt es einen schöneren weg als mit einer schleife bis zu der zeile rauf, runter zu scrollen, zeile für zeile?

lg Nico

[Nicodius]

kleiner abendlicher push.

[DeddyH]

Vielleicht hilft das hier, sofern ich die Frage richtig verstanden habe: http://www.swissdelphicenter.ch/de/showcode.php?id=439

[Nicodius]

Vielen Dank für den Link, leider hat es bei mir wieder nicht funktioniert.
Ich habe folgenden Code(in meinem Richedit(Log_Output) befinden sich nur mehr zeilen mit error codes, in einer Listbox(Error_Codes) die zugehörigen Errorcodes, also exakt gleich viele items):

Delphi-Quellcode:

    
with Log_Output do
  begin
    SelStart := Perform(EM_LINEINDEX, Error_Codes.ItemIndex, 0);
    Perform(EM_SCROLLCARET, 0, 0);
    Invalidate;
  end;

Leider macht es aber genau gar nichts. :(

[DeddyH]

Und wenn Du Invalidate durch SetFocus ersetzt? Bei mir hier (D2007) hat das in einem kleinen Testprojekt wunderbar funktioniert.

[Nicodius]

Seltsam, habe delphi 7, aber es springt einfach nicht in die Zeile. es kommt nach diesem Sprung auch kein Code mehr, daher finde ich das jetzt wirklich verwunderlich.

[DeddyH]

Und ohne das with? Nicht, dass Delphi hier durcheinander gerät. Delphi 7 kann ich erst heute Abend ausprobieren, da ich das nur zu Hause installiert habe.