Консультация № 89332
30.05.2007, 21:16
0.00 руб.
0 2 2
Помогите пожалуйста!!!
Как в поле Memo установить курсор в указанную строку?

Обсуждение

Неизвестный
30.05.2007, 21:37
общий
это ответ
Здравствуйте, Устинов В В!
В общем случае установка курсора делается так:
<i>Memo1.CaretPos:=Point(0,5);
Memo1.SetFocus;</i>
0, 5 - координаты символа для вставки по горизонтали и вертикали. Не забудьте, что строки нумеруются с нуля.
Неизвестный
30.05.2007, 21:45
общий
это ответ
Здравствуйте, Устинов В В!

Вот код:
<code>procedure TForm1.Button1Click(Sender: TObject);
var numLine:integer;
begin
numLine:=3; <font color=green>{номер строки в которую необходимо поставить курсор}</font>
with Memo1 do
begin
selstart:=perform(EM_LineIndex,numLine-1,0); <font color=green>{расчет позиции}</font>
perform(EM_ScrollCaret,0,0); <font color=green>{устанавливаем курсор}</font>
SetFocus; <font color=green>{делаем объект активным}</font>
end;
end;</code>

Good Luck!!!
Форма ответа