In TRichEdit Text Suchen?

[smart]

Ich möchte aus einem Text in TRichEdit eine Stringreihenfolge suchen. Ich habe mir diesen Code zusammengestellt. Es wird auch gefunden, aber nicht an der Stelle gescrollt an der gefunden wird. Was mache ich da falsch?

Delphi-Quellcode:

Var
  I, J, PosReturn, SkipChars: Integer;
begin
  for I := 0 to RichEdit1.Lines.Count do
  begin
    PosReturn := Pos(FindDialog1.FindText,RichEdit1.Lines[I]);
    if PosReturn <> 0 then {gefunden!}
    begin
      Skipchars := 0;
      for J := 0 to I - 1 do
      Skipchars := Skipchars + Length(RichEdit1.Lines[J]);
      SkipChars := SkipChars + (I*2);
      SkipChars := SkipChars + PosReturn - 1;

      RichEdit1.SetFocus;
      RichEdit1.SelStart := SkipChars;
      RichEdit1.SelLength := Length(FindDialog1.FindText);
      Break;
    end;
  end;

[Keldorn]

Hallo

Ein richhedit kennt Findtext, das hat mehr Möglichkeiten als Pos und kommt auch mit den Formatierungen klar. In der Hilfe ist dazu auch ein Beipsiel, ebenfalls mit einem Finddialog, kann man einfach übernehmen.

Mfg Frank

[smart]

Zitat:

Zitat von Keldorn

Hallo
In der Hilfe ist dazu auch ein Beipsiel, ebenfalls mit einem Finddialog, kann man einfach übernehmen.
Mfg Frank

Das Beispiel hat genau den gleichen Effekt, scrollt auch nicht! Trozdem, Danke.

[Flocke]

Versuche mal

Delphi-Quellcode:

SendMessage(RichEdit.Handle, EM_SCROLLCARET, 0, 0);

[smart]

Zitat:

Zitat von Flocke

Versuche mal

Delphi-Quellcode:

SendMessage(RichEdit.Handle, EM_SCROLLCARET, 0, 0);

Bei einem TMemo geht es. Beim TRichEdit leider nicht.

[smart]

Ich habe es selbst raus gefunden. Die Eigenschaft .HideSelection des Richedits muss auf FALSE gesetzt sein. Dann geht es!
Vielen Dank für Eure Antworten.