Mover ScrollBar de TRichEdit

[Durbed]

Realizo un proceso de busqueda sobre un TRichEdit y al encontrar la palabra la muestro seleccionada, el problema esta en que cuando la palabra no aparece dentro del area visible del TRichEdit, quiero que la barra de desplazamiento del TRichEdit se mueva para que se vea la parte del texto que esta seleccionada.

Un saludo y gracias.

[dec]

Hola,

Parece que una solución puede ser:

Código Delphi [-]
RichEdit1.Perform(EM_SCROLLCARET, 0, 0);

En contexto podría quedar más o menos:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const
  S = 'cadena-busqueda';

var
  posResultado: integer;

begin

  with RichEdit1 do
    posResultado := FindText(S, 0, Length(Text), []);

  if (posResultado <> -1) then
  begin
    with RichEdit1 do
    begin
      SetFocus;
      SelStart := posResultado;
      SelLength := Length(S);
      Perform(EM_SCROLLCARET, 0, 0);
    end;
  end;

end;

[Durbed]

Muchas gracias Dec, era justo lo que necesitaba ademas de funcionar perfectamente.

Gracias.