Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Как програмно переместить курсор к RichEdit1.Lines

Автор: mpdasa 23.7.2012, 14:07

Как програмно переместить курсор к RichEdit1.Lines[5]?

Простой вопрос, но ответа в поисковиках не нашёл.

Автор: Frees 23.7.2012, 14:16

Примерно так

Код


var
  pos: TPoint;
  function GetLineHeight(): Integer;
  begin
 
    result := Canvas.TextHeight('I');
  end;
begin
  pos.X := RichEdit1.Left + Trunc(RichEdit1.Width / 2);
  pos.Y := RichEdit1.Top + GetLineHeight() * 5;
  pos := RichEdit1.Parent.ClientToScreen(pos);
  Mouse.CursorPos := pos;

Но лучше так не делать не дело программы мышку шевелить.

а если речь не о курсоре мыши а о курсоре ввода

Код


var
  pos: TPoint;
begin
  pos.Y := 5 - 1;
  pos.x := 0;
  RichEdit1.CaretPos := pos;
  RichEdit1.SetFocus;