| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как в Memo вставить текст при нажатии... [D5, Win95/98, WinME, Win2k]
Help © (2002-07-13 20:02:00)Значит так: есть кнопка, memo с текстом. Щелкаю скажем в середине мемо и нажимаю на кнопку. Должно вставить текст.Как но без буфера
Случайный прохожий (2002-07-14 12:17:00) [1]Если суммировать вышесказанное, то:
procedure TForm2.Button1Click(Sender: TObject);
begin
Memo1.SelText:=TButton(Sender).Caption;
end;
Anatoly Podgoretsky (2002-07-14 00:36:00) [2]Конечно, я просто комментировал вставку через свойство Text, естественно это не оптимально
Юрий Зотов (2002-07-14 00:13:00) [3]Можно и через Insert(Text, ...), но возникнут дополнительные проблемы с определением позиции вставки - да еще с учетом всех #10#13.
Проще выставить SelLength=0 (хотя можно и этого не делать, но для подстраховки), а затем послать EM_REPLACESEL. А SelStart при щелчке выставится само собой.
Anatoly Podgoretsky (2002-07-13 21:44:00) [4]Для строк есть процедура Insert, свойство Text именно строкового типа
Help (2002-07-13 20:57:00) [5]Все равно что в блокноте щелкнуть правой кнопкой и нажать вставить!!!
Help (2002-07-13 20:52:00) [6]Viewer я же просил чтобы старый текст не меняло, а вставило в позицию курсора!!!
Viewer (2002-07-13 20:08:00) [7]???
memo.Lines.Text := "qwerty";
| |
