Скачать: CL | DM;

Копирование текста в 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c