Главная страница
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.48 MB
Время: 0.048 c
1-1090501932
Spivi
2004-07-22 17:12
2004.08.08
Как сделать редактор форм


1-1090838693
Bobic
2004-07-26 14:44
2004.08.08
Как в CheckListBox сохранить только отмеченые элементы


9-1083066512
Не просто Я
2004-04-27 15:48
2004.08.08
Кому не трудно киньте линки на всё о функциях описания шара


14-1090574211
sapsi
2004-07-23 13:16
2004.08.08
Потусторонние силы


4-1088609549
Андрюшенька
2004-06-30 19:32
2004.08.08
Помогите!!! Windows