Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.48 MB
Время: 0.017 c
15-1197208148
Questioner_
2007-12-09 16:49
2008.01.13
Нужно написать программу...


2-1197710104
петрович07
2007-12-15 12:15
2008.01.13
курсор в пределах формы


2-1197580640
Reals
2007-12-14 00:17
2008.01.13
TreeView: перетащить item в другое место.


3-1189165817
keymaster
2007-09-07 15:50
2008.01.13
Как получить из oracle refcursor (ADO)


15-1197022693
Stanislav_
2007-12-07 13:18
2008.01.13
Интересно девки пляшут...