|
Вопрос # 99/ вопрос открыт / |
|
Здравствуйте!
Как можно нажатием на кнопку вставить какой-нибудь текст в нужное место уже имеющегося текста в memo.
Проще говоря, мне нужно организовать что-то типо системы форматирования текста phpBB или IPB, только в программе. :)
Как я понял, нужно оперировать со свойствами
SelStart, SelEnd и SelLength. Но вот дальше додумать не могу. (:
Походу, надо узнать ещё номер строки, в которой курсор стоит, а затем оперировать с copy delete и length.
Но вот что-то торможу... :)
А может вообще как-то подругому можно сделать???
_____
Заранее, спасибо!!!
 |
Вопрос задал: Евгений В (статус: 1-ый класс)
Вопрос отправлен: 12 августа 2006, 03:37
Состояние вопроса: открыт, ответов: 2.
|
Ответ #1. Отвечает эксперт: Geron
Здравствуйте, Евгений В! Я сейчас вам напишу маленькое приложение, а вы извлекайте нужные вам части кода.
У нас есть Memo, Button, Edit.
Мы щелкаем мышкай по нужной строчке в Мемо, нужная строчка показывается в Edit, мы изменям текст в Edit и нажимаем на кнопку, после этого нужная строчка изменяется в Мемо.
С полученной строчкой из Мемо можно работать как и обычной строкой.
Приложение: Переключить в обычный режим-
- procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- begin
- Edit1.Text:=Memo1.Lines.Strings[Memo1.CaretPos.Y];
- end;
-
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- Memo1.Lines.Strings[Memo1.CaretPos.Y]:=edit1.text;
- end;
 |
Ответ отправил: Geron (статус: 1-ый класс)
Время отправки: 13 августа 2006, 01:28
Оценка за ответ: 5
Комментарий к оценке: Спасибо!!!
Вот оно, что мне надо Memo1.CaretPos.Y
|
Ответ #2. Отвечает эксперт: Косолапов Дмитрий Юрьевич
Вообще-то должно быть свойство SelText... Им и оперировать?
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 11 августа 2006, 01:34; участников в обсуждении: 1.
|
Евгений В (статус: 1-ый класс), 11 августа 2006, 01:34 [#1]:
Никто не знает???
Ну помогите кто-нибудь!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|