Форум: "Основная";
Текущий архив: 2005.10.02;
Скачать: [xml.tar.bz2];
ВнизКопирование текста в Clipboard Найти похожие ветки
← →
Mishenka (2005-09-05 17:23) [0]При копировании русского текста в Clipboard методом AsText при в ставке в других приложениях текст изображается иероглифами, при том, что с английским всё нормально. Как это исправить?
← →
Digitman © (2005-09-05 17:28) [1]перед копированием установи русскую раскладку клавы
после вставки верни на место прежнюю раскладку
← →
REA (2005-09-05 17:47) [2]Есть готовый компонент на королевстве.
← →
Mishenka (2005-09-05 21:52) [3]
> Digitman © (05.09.05 17:28) [1]
А можно обойтись без смены раскладок?
← →
Турист (2005-09-05 22:27) [4]
uses
Clipbrd;
type
TClipboardAccess = class(TClipboard);
procedure CopyToClipboard(const aText: string);
var
wText: WideString;
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then begin
wText := aText;
TClipboardAccess(Clipboard).SetBuffer(CF_UNICODETEXT, wText[1], (Length(wText) + 1) * 2)
end else
Clipboard.AsText := aText
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CopyToClipboard("Русский текст")
end;
← →
Mishenka (2005-09-07 08:40) [5]
> Турист (05.09.05 22:27) [4]
Спасибо, всё заработало!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.10.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c