Главная страница
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.031 c
3-1089723069
STM
2004-07-13 16:51
2004.08.08
Pack dbf из Delphi


1-1090484950
Snip
2004-07-22 12:29
2004.08.08
ImageList


1-1090606254
sashok
2004-07-23 22:10
2004.08.08
Динамически создаваемые компоненты.


1-1090997977
RagE
2004-07-28 10:59
2004.08.08
TCanvas.TextOut


14-1090320899
ArMellon
2004-07-20 14:54
2004.08.08
Народ спасайте надо состряпать прогу которая инет обрубает на