Текущий архив: 2002.07.25;
Скачать: CL | DM;
Вниз
Как в Memo вставить текст при нажатии... Найти похожие ветки
← →
Help (2002-07-13 20:02) [0]Значит так: есть кнопка, memo с текстом. Щелкаю скажем в середине мемо и нажимаю на кнопку. Должно вставить текст.Как но без буфера
← →
Viewer (2002-07-13 20:08) [1]???
memo.Lines.Text := "qwerty";
← →
Help (2002-07-13 20:52) [2]Viewer я же просил чтобы старый текст не меняло, а вставило в позицию курсора!!!
← →
Help (2002-07-13 20:57) [3]Все равно что в блокноте щелкнуть правой кнопкой и нажать вставить!!!
← →
Anatoly Podgoretsky © (2002-07-13 21:44) [4]Для строк есть процедура Insert, свойство Text именно строкового типа
← →
Юрий Зотов © (2002-07-14 00:13) [5]Можно и через Insert(Text, ...), но возникнут дополнительные проблемы с определением позиции вставки - да еще с учетом всех #10#13.
Проще выставить SelLength=0 (хотя можно и этого не делать, но для подстраховки), а затем послать EM_REPLACESEL. А SelStart при щелчке выставится само собой.
← →
Anatoly Podgoretsky © (2002-07-14 00:36) [6]Конечно, я просто комментировал вставку через свойство Text, естественно это не оптимально
← →
Случайный прохожий (2002-07-14 12:17) [7]Если суммировать вышесказанное, то:
procedure TForm2.Button1Click(Sender: TObject);
begin
Memo1.SelText:=TButton(Sender).Caption;
end;
Страницы: 1 вся ветка
Текущий архив: 2002.07.25;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.009 c
