Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.08;
Скачать: CL | DM;

Вниз

Проблема с копированием в ClipBoard!   Найти похожие ветки 

 
Юрий Ж.   (2004-07-26 00:46) [0]

Вопрос вот в чем:
Есть у меня один компонент, конорый выводит текст и когда я нажимаю Ctrl+C я из него этот текст копирую методом:
ClipBoard.Clear;
ClipBoard.SetTextBuf(PChar(GetSelText))

Когда я далее вставляю этот текст (при помощи Ctrl+V) в Memo (например), то выдается, что-то типа:
&#196;&#238;&#225;&#240;&#238; &#239;&#238;&#230;&#224;&#235;&#238;&#226;&#224;&#242;&#252; (<-это строка "Добро пожаловать" :))

Если же я делаю Memo.Text:=GetSelText, то все ОК.
Что делать?
Спасибо!


 
GanibalLector ©   (2004-07-26 01:17) [1]

ActivateKeyboardLayout(LoadKeyboardLayout("00000419",0),0);


 
Anatoly Podgoretsky ©   (2004-07-26 09:21) [2]

Включи предварительно перед вставкой русский язык.


 
Юрий Ж.   (2004-07-26 14:41) [3]

ActivateKeyboardLayout(LoadKeyboardLayout("00000419",0),0); - РАБОТАЕТ!
А как перед изменением раскладки узнать какая активирована в данный момент, чтобы после ее восстановить ?


 
Юрий Ж.   (2004-07-26 14:43) [4]

ActivateKeyboardLayout(LoadKeyboardLayout("00000419",0),0); - РАБОТАЕТ!
А как перед изменением раскладки узнать какая активирована в данный момент, чтобы после ее восстановить ?


 
IceBeerg ©   (2004-07-26 18:18) [5]

GetKeyboardLayout(...


 
Юрий Ж.   (2004-07-27 02:41) [6]

Спасибо.
Я насамом деле и сам разобрался и для того, чтобы определить предидущую раскладку лучше сделать вот, что (может кому пригодится):

var
 Layout: HKL;
begin
 Layout:=ActivateKeyboardLayout(LoadKeyboardLayout("00000419",0),0);
 {ля-ля-ля}
 ActivateKeyboardLayout(Layout,0);
end;



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

Текущий архив: 2004.08.08;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.033 c
14-1090322937
samz
2004-07-20 15:28
2004.08.08
отменить общий доступ


1-1090438350
AlexR
2004-07-21 23:32
2004.08.08
Как убрать свою программу из TaskBar


1-1090749689
Endi
2004-07-25 14:01
2004.08.08
Ошибка доступа при згрузке файла в реестр


1-1090509542
Ego
2004-07-22 19:19
2004.08.08
поле DBGrid.


1-1090822563
Dimius
2004-07-26 10:16
2004.08.08
Как в TPageControl сделать, чтобы Tab были невидимыми?





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