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

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

Форум программистов > Delphi: Для новичков > Метод Tmemo для установки курсора в нужную строку

Автор: Aleks26 27.5.2010, 20:56

Подскажите! Может я просто просмотрел. Нужно свойство или метод в TCustomMemo, чтобы установить текущий курсор в нужную строку. Методы, показывающие текущее положение, вроде есть, но нужно установить. Чтобы было понятней, я считываю из текстового файла с помощью ReadLn в цикле последовательно строки. После завершения цикла я оказываюсь на последней строке Memo. А нужно либо в начало, либо на конкретную строку. smile

Автор: kami 27.5.2010, 21:01

Код


procedure TForm1.btn1Click(Sender: TObject);
var
  p:TPoint;
begin
  p.X:=0;
  p.Y:=0;
  Memo1.CaretPos:=p;
  Memo1.SetFocus;
end;

Автор: Aleks26 27.5.2010, 23:17

Спасибо! Только почему нельзя сразу задать нулевые значения в поля Memo1.TCaretPos, а необходим p типа TPoint? smile

Я вчера вечером получил этот ответ, но пробовал лишь сегодня утром и результата, которого я хотел получить не смог достичь. После кода, который мне был показан как решение, курсор действительно устанавливается в точку (X=0, Y=0), но я вижу это только после возврата ScrollBar'ом в начало моего текста. Я же спрашивал, есть ли какая-то возможность автоматом (не вручную, используя ScrollBar) "прокрутить" мой текст в начало? А так курсор находится в начале, но в окне Memo все равно виден конец моего текстового файла. smile

Автор: Mikel 31.5.2010, 16:08

Код


SendMessage(memo.Handle, EM_LINESCROLL, 0, -Memo.Lines.Count)

Автор: kami 31.5.2010, 19:00

Цитата(Aleks26 @ 27.5.2010, 23:17

)

Я же спрашивал, есть ли какая-то возможность автоматом (не вручную, используя ScrollBar) "прокрутить" мой текст в начало?

не спрашивал.

Цитата(Aleks26 @ 27.5.2010, 20:56

)

Нужно свойство или метод в TCustomMemo, чтобы установить текущий курсор в нужную строку.

Что спросил - то и получил smile

Автор: Traum 20.4.2011, 20:46

У меня получилось установить в нужную позицию в Memo (TMemo)
и показать эту позицию в качестве 1-й видимой строки с помощью следующего кода

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  p : TPoint;
  FirstVisible : longint;
begin
  // позиция в которую нужно переместить
  p.X := 4;
  p.Y := 4;
  Memo1.CaretPos := p;
  // определяем номер первой видимой строки
  FirstVisible := SendMessage(Memo1.Handle,EM_GETFIRSTVISIBLELINE,0,0);
  // устанавливаем линию с курсором в качестве первой видимой
  SendMessage(Memo1.Handle,EM_LINESCROLL,0, p.Y - FirstVisible )
  Memo1.SetFocus; 
end;