Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c