Скачать: 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 вся ветка

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



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