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 ))

> а мне зачем? Пусть автор помнит )

Это и было автору, со ссылкой на твое решение

> Заодно пусть озадачится технологией drag and drop ))

Во-во, можно утащить текст и не нажимая на клавиши. Поэтому [1] - самый простой и самый надежный способ :)

> Поэтому [1] - самый простой и самый надежный способ

Надежный то он надежный. Но о запрете редактирования ничего не говорилось, а как редактировать без выделения? Не удобно"c.

TRichEdit: блокировка Ctrl+C (ненужное копирование) Найти похожие ветки