Текущий архив: 2003.06.26;
Скачать: 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 вся ветка
Текущий архив: 2003.06.26;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.032 c
