Скачать: CL | DM;

Tmemo   Найти похожие ветки 

← →
Soldier ©   (2004-05-15 16:04) [0]

Как можно поместить курсор в нужную стоку на нужный символ. CaretPos - readonly типа, по нему можно узнать положение, но никак не изменить его. SelStart тоже не подходит(я так понял через него можно поставить курсор на определённый символ в паременной text, а со строкой А-а-а-блом). Вообщем я в дауне, помогите.........!!!!!!!!!

---

← →
ssk ©   (2004-05-15 16:23) [1]

готовой функции не нашел (хотя, может и есть - не знаю). вот что у меня получилось:


procedure SetCursorToLine(M: TMemo; PL: integer);
var
 k, i: integer;
begin
 k:=0;
 for i:=0 to PL-1 do
   k:=k+Length(M.Lines[i])+2;
 M.SelStart:=k;
end;


ставит курсор в начало указанной строки. нумерация строк ведется с нуля.

---

← →
ssk ©   (2004-05-15 16:44) [2]

немного доработанный вариант - добавлен параметр позиции в строке:


procedure SetCursorToLine(M: TMemo; Line, Position: integer);
var
 k, i: integer;
begin
 k:=0;
 for i:=0 to Line-1 do
   k:=k+Length(M.Lines[i])+2;
 M.SelStart:=k+Position;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c