Memo

← →
ehri © (2003-07-29 15:58) [0]

Вопрос №1. Есть компонент Memo1, и есть кнопка. Как сделать, чтобы по нажатию кнопки внутрь текста Memo, добавлялся новый текст, как бы раздвигающий исходный текст?
Вопрос №2. Мой предыдущий топ удалили, или его не было??

← →
Polevi © (2003-07-29 16:02) [1]

TStrings.Insert

← →
ehri © (2003-07-29 16:04) [2]

А как вытащить позицию курсора? :(

← →
ELKa (2003-07-29 16:05) [3]

procedure TForm.Button2Click(Sender: TObject);
begin
memo1.selstart:=позиция с которой нужно вставить текст (целое число);
memo1.seltext:=текст;
end;

← →
ELKa (2003-07-29 16:07) [4]

memo1.selstart - это и есть текущая позиция курсора.

Ё... Как вытащить позицию курсора в виде переменной типа Integer?

Спасибо

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