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

Вниз

Проблема с копированием в 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.034 c
1-1090567631
segor
2004-07-23 11:27
2004.08.08
перекрыть метод закрытия формы


14-1090495921
ИМХО
2004-07-22 15:32
2004.08.08
Пару слов о Delphi 8


1-1090314166
rustamus
2004-07-20 13:02
2004.08.08
DhtmlEdit


3-1089810976
RavenD
2004-07-14 17:16
2004.08.08
CASE для FireBird?


14-1090490977
ghg
2004-07-22 14:09
2004.08.08
рисование блок-схемы





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