Текущий архив: 2008.01.13;
Скачать: CL | DM;
Вниз
TRichEdit: блокировка Ctrl+C (ненужное копирование) Найти похожие ветки
← →
mufan (2007-12-11 18:29) [0]доброго времени суток!
вопрос такой:
есть RichEdit компонент... при нажатии ctrl+c происходит копирование текста в буффер... как можно указать компоненту не делать этого копирования???
← →
ЮЮ © (2007-12-13 05:44) [1]Запрети выделять - копировать будет нечего:
TRichEdit.OnSelectionChange:
procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
RichEdit1.SelLength := 0;
end;
← →
Gydvin © (2007-12-13 06:36) [2]
> Запрети выделять - копировать будет нечего:
Как-то не серьезно...
Так лучше имхо
procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssCtrl in shift) and ((key=ord("c")) or (key=ord("C"))) then KEY:=0;
end;
← →
ЮЮ © (2007-12-13 06:51) [3]> [0] mufan (11.12.07 18:29)
> [2] Gydvin © (13.12.07 06:36)
Тогда и про ctrl + X не забудь
← →
Gydvin © (2007-12-13 07:01) [4]а мне зачем? Пусть автор помнит )
← →
Gydvin © (2007-12-13 07:03) [5]Заодно пусть озадачится технологией drag and drop ))
← →
ЮЮ © (2007-12-13 10:33) [6]> а мне зачем? Пусть автор помнит )
Это и было автору, со ссылкой на твое решение
> Заодно пусть озадачится технологией drag and drop ))
Во-во, можно утащить текст и не нажимая на клавиши. Поэтому [1] - самый простой и самый надежный способ :)
← →
Gydvin © (2007-12-13 19:55) [7]
> Поэтому [1] - самый простой и самый надежный способ
Надежный то он надежный. Но о запрете редактирования ничего не говорилось, а как редактировать без выделения? Не удобно"c.
← →
Gydvin © (2007-12-14 05:38) [8]Да поправка к
> Gydvin © (13.12.07 06:36) [2]
if (ssCtrl in shift) and (key=67) then KEY:=0;
Страницы: 1 вся ветка
Текущий архив: 2008.01.13;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.007 c
