Текущий архив: 2002.11.07;
Скачать: CL | DM;
Вниз
Вставить текст в Edit Найти похожие ветки
← →
Whippi © (2002-10-29 11:32) [0]Как вставить текст в Ричедит, но так что бы он встал, где мигает курсор, а не заменил собой весь текст?
Если можно примерчик.
← →
stone © (2002-10-29 11:36) [1]RichEdit1.SelStart вернет тебе позицию курсора, ну а дальше дело техники
← →
Song © (2002-10-29 11:46) [2]RichEdit1.Lines.Text:="ваш_текст" и не надо никаких SelStart"ов.
← →
Whippi © (2002-10-29 12:04) [3]
> Song © (29.10.02 11:46)
> RichEdit1.Lines.Text:="ваш_текст"
Нет, нужно, чтобы он не подменял собой существующий текс, например, есть текс "абс"курсор мигает после "с" нужно чтобы после "с" вставилось "д" и текст приобрел вид "абсд".
а если использовать RichEdit1.Lines.Text:="ваш_текст" то в RichEdit вместотребуемого "абсд" будет "д". Вот в чем загвоздка.
← →
Smithson © (2002-10-29 12:07) [4]
I: Integer;
S: String;
...
I := RichEdit1.SelStart;
S := RichEdit1.Lines.Text;
S := Copy(S,1,I)+"Ваш текст"+Copy(S,I+1, Length(S));
RichEdit1.Lines.Text := S;
По-моему, так!
← →
MBo © (2002-10-29 12:31) [5]RichEdit1.SelLength:=0;// выделение снимется, если есть
Richedit1.SelText:=S; // вставка
← →
Whippi © (2002-10-29 12:43) [6]Спасибо,
все получилось методом Smithson-а
← →
MBo © (2002-10-29 12:45) [7]:)
Страницы: 1 вся ветка
Текущий архив: 2002.11.07;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.012 c
