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

Положение текстового курсора.   Найти похожие ветки 

← →
Vulko ©   (2003-06-08 11:13) [0]

Правильно ли моё предположение:
Позиция получается путем суммирования номера строки и номера символа в этой строке.?

---

← →
default ©   (2003-06-08 11:19) [1]

"позиция текстового курсора" = "номер строки" * "число символов в строке" + "позиция символа в строке"

---

← →
Anatoly Podgoretsky ©   (2003-06-08 11:42) [2]

Это тоже весьма упрощенно, а коды возврата каретки и перевод строки.

---

← →
Fenik ©   (2003-06-08 11:43) [3]

Нет. В каждой строке может быть разное кол-во символов.
Если одинаковое то - default © (08.06.03 11:19)

---

← →
Vulko ©   (2003-06-08 12:45) [4]

Хмм...
Может тогда ответите на вопрос - как вставить в RichEdit (или Мемо) текст туда где находится курсор.

---

← →
Song ©   (2003-06-08 12:50) [5]

Insert()

---

← →
Vulko ©   (2003-06-08 13:04) [6]

> Song

Я имею в виду прямо куда курсор, ведь richedit1.lines.insert(curpos," str");

Так вот как определить curpos, что вставить именно в это место.

---

← →
Shadow ©   (2003-06-08 14:38) [7]

Ну и вопросы. Нам ведьнужна только координата Х

procedure TForm1.Button1Click(Sender: TObject);
var
d: string;
begin
D:=Richedit1.lines.Strings[RichEdit1.CaretPos.Y];
Insert("str", d, RichEdit1.CaretPos.X);
Richedit1.lines.Strings[RichEdit1.CaretPos.Y]:=D;
end;


---

← →
Shadow ©   (2003-06-08 14:41) [8]

Вообще лучше так:
procedure TForm1.Button1Click(Sender: TObject);
var
d: string;
begin
D:=Richedit1.lines.Strings[RichEdit1.CaretPos.Y];
Insert("str", d, RichEdit1.CaretPos.X+1);
Richedit1.lines.Strings[RichEdit1.CaretPos.Y]:=D;
end;

---

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

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



Память: 0.46 MB
Время: 0.016 c