Переод каретки в указанное место в RE

[MyLastHit]

Здравствуйте уважаемые форумчане! Пожалуйста подскажите как перевести каретку в RE в указанное место.
К примеру указываю:

a:=pos('get', str1);

и при компиляции каретка перемещается к слову get. Как такое можно провернуть?

[DomiNick]

RE - TRichEdit aka RichBox?
RichEdit.SelStart?

[MyLastHit]

RE - TRichEdit.
RichEdit.SelStart это то?

[DomiNick]

Ну... По научному это одно из полей класса TRichEdit...)))

Это позиция мигающего курсора ввода (каретки)... Можно так: RichEdit.SelStart:=Pos('get', RichEdit.Text)-1;

[MyLastHit]

В RE начальный текст ввел 'dafaf get sfsf' дальше

procedure TForm1.Button1Click(Sender: TObject);
begin
 RichEdit1.SelStart:=Pos('get', RichEdit1.Text)-1;

end;

Но это не работает, каретка пропадает вобще

[DomiNick]

А... Так это просто фокус ввода на кнопке получается...
Можно либо RichEdit1.SetFocus добавить, либо использовать неоконные кнопки (TSpeedButton)...))

[DIgorevich]

Либо так:

procedure RichEdit_MoveTo(RichEdit: TRichEdit; LineNumber, CharNumber: Word);
 begin
   RichEdit.SelStart := RichEdit.Perform(EM_LINEINDEX, LineNumber, 0) + CharNumber;
 end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   RichEdit_MoveTo(RichEdit1,2,(Pos('get', RichEdit1.Text)));
   Application.ProcessMessages;
   RichEdit1.SetFocus;
end;

[eoln]

Или так

  RichEdit1.SelStart:=Pos('get', RichEdit1.Text)-1;
  RichEdit1.Perform(EM_SCROLLCARET, 0, 0);

[MyLastHit]

Всем огромное спасибо за ответы