Главная страница
    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.45 MB
Время: 0.008 c
1-73178
DenNNis
2002-05-14 09:20
2002.05.23
Уважаемые Мастера!


6-73350
knyaz17
2002-03-06 16:24
2002.05.23
Как получить доступ к интерфейсу IHTMLOptionsHolder?


1-73298
vrRaven
2002-05-09 06:50
2002.05.23
Динамический массив с TButton


1-73274
Igg
2002-05-11 01:38
2002.05.23
Хинты


1-73260
Kopachev
2002-05-10 08:27
2002.05.23
Маленький вопрос про Canvas





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский