Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

CTRL+C и Shift+Ins [D5]


Gnom ©   (2002-05-10 20:34:00) 

Нужно делать копирование из буффера в RichEdit без учета разметки (читсый текст). Как это сделать - понятно - Richedit1.Perform(EM_PASTESPECIAL, Clipboard.Formats[4], 0);
Но теперь хочется, чтоб и вставка по стандартным сочетаниям Ctrl+C и Shift+Ins делала тоже самое.
Делаю событие для RichEdit-a onKeyDown. В его обработчике проверяю что за клавиша(и) нажаты :
If ((shift=[ssCtrl]) and (key=67)) or ((shift=[ssShift]) and (key=45)) then begin
...
но с удивлением обнаруживаю, что Ctrl+C вставляет так как мне надо, а Shift+Ins - как и раньше - вместе с разметкой...
Сначала было подумал что напутал с кодами клавиш, но нет - если после Begin стоит что то еще, то оно при нажатии Shift+Ins выполняется , т.е. условие выполнено...


Gnom   (2002-05-10 21:31:00) [1]

Спасибо, это помогло!!!
Вот уж действительно - век живи, век RTFM :-))
Хотя по-моему удивительно, что для Ctrl+C этого не надо, а для Shift+INS необходимо...


evgeg   (2002-05-10 21:06:00) [2]

А Key := 0 делаете?


Наверх

Титульная страница Поиск, карта сайта Написать письмо