Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.05.23;
Скачать: [xml.tar.bz2];

Вниз

CTRL+C и Shift+Ins   Найти похожие ветки 

 
Gnom   (2002-05-10 20:34) [0]

Нужно делать копирование из буффера в 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 выполняется , т.е. условие выполнено...


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

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


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

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.05.23;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.007 c
1-73139
VID
2002-05-05 18:20
2002.05.23
Определение состояния контексного меню (TPopup)


3-73053
CrazzyWizzard
2002-04-25 07:24
2002.05.23
Как узнать, сколько записей выбрал SELECT в Delphi?


4-73466
zondor
2002-03-25 15:03
2002.05.23
API - Cvjazj s drugimi Prilozenijami


14-73368
VictorT
2002-04-15 15:08
2002.05.23
Опять переписочка.


3-73048
Oleg_er
2002-04-27 07:38
2002.05.23
В запросе ошибка - в чем проблема???





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский