in einem RichEdit zu einer bestimmten Zeile scrollen?

[smart]

Hallo Alle!

Ist es in Delphi möglich, mit einem Befehl oder so in einem RichEdit zu einer bestimmten Zeile zu springen/ scrollen?

Gruß
Heike

[Ines]

Hallo Heike,

ich glaube, das geht mit SelStart.
Gruß Ines

[DocE]

Hallo Heike,

also die Zeile auslesen kannst Du mit:

Delphi-Quellcode:

Zeile := SendMessage(RichEdit.Handle, EM_LINEFROMCHAR, RichEdit.SelStart, 0);

Liefert "Zeile - 1" zurück...

Zum Setzen weiß ich leider nichts, man könnte aber in einer Schleife ausprobieren, wann eine neue Zeile beginnt, und dann SelStart setzen, also:

Delphi-Quellcode:

for i:=0 to length(RichEdit.Text)-1 do
begin

  if SendMessage(RichEdit.Handle, EM_LINEFROMCHAR, i, 0) = (GewuenschteZeile - 1) then
  begin
    RichEdit.SelStart := i;
    RichEdit.SelLength := 0; // oder anderer gewünschter Wert
    ActiveControl := RichEdit; // nur wenn nötig
    break;
  end;

end;

Grüsse
...Doc

[marabu]

Hallo Heike,

hier ist ein thread, in dem deine Frage schonmal beantwortet wurde: klick

Grüße vom marabu

[smart]

Zitat:

Zitat von marabu

Hallo Heike,
hier ist ein thread, in dem deine Frage schonmal beantwortet wurde: klick
Grüße vom marabu

Hi,

den Thread Hatte ich gesehen, aber klappte bei mir nicht! Habe aber jetzt den Fehler gefunden.
Im RichEdit hatte ich HideSelection auf True stehen. Ich lerne aus Fehlern nicht :-(
Den gleichen Fehler hatte ich schon mal vor einiger Zeit! Da hatte ich auch Stunden gesucht! ;-)
Ich werde die Kompo bearbeiten das die gleich immer False ist.

Vielen Dank an Euch Alle.

Heike