Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TRichEdit: блокировка Ctrl+C (ненужное копирование) [D2005]

mufan © (2007-12-11 18:29:00)
доброго времени суток!

вопрос такой:
есть RichEdit компонент... при нажатии ctrl+c происходит копирование текста в буффер... как можно указать компоненту не делать этого копирования???

Gydvin (2007-12-14 05:38:00) [1]
Да поправка к

> Gydvin © (13.12.07 06:36) [2]

if (ssCtrl in shift) and (key=67) then KEY:=0;

Gydvin (2007-12-13 19:55:00) [2]

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

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

ЮЮ (2007-12-13 10:33:00) [3]
> а мне зачем? Пусть автор помнит )

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

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

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

Gydvin (2007-12-13 07:03:00) [4]
Заодно пусть озадачится технологией drag and drop ))

Gydvin (2007-12-13 07:01:00) [5]
а мне зачем? Пусть автор помнит )

ЮЮ (2007-12-13 06:51:00) [6]
> [0] mufan (11.12.07 18:29)
> [2] Gydvin © (13.12.07 06:36)

Тогда и про ctrl + X не забудь

Gydvin (2007-12-13 06:36:00) [7]

> Запрети выделять - копировать будет нечего:

Как-то не серьезно...

Так лучше имхо
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 05:44:00) [8]
Запрети выделять - копировать будет нечего:

TRichEdit.OnSelectionChange:

procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
RichEdit1.SelLength := 0;
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »