VPF::Текст в буфер обмена - Форум программистов

MacTep

Дата 22.6.2009, 17:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4

Есть текст, выделенный в каком-либо окне (не в форме дельфи)... Например, блокнот или веббраузер или еще что-то. Как можно этот текст поместить в буфер обмена? smile

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

former

Дата 23.6.2009, 01:26 (ссылка)

(голосов:1)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17

Цитата(MacTep @ 22.6.2009, 17:29

)

Как можно этот текст поместить в буфер обмена?

Ctrl+C. Другими словами, пользователь сам должен поместить текст в буфер.

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

AntonN

Дата 23.6.2009, 08:20 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 491
Регистрация: 8.8.2006

Репутация: 3
Всего: 18

former, после отлавливания этой комбинации клавиш нужен код помещающий текст в буфер, про это автор и спрашивал.

MacTep,

Код


uses ClipBrd;

procedure PutStringIntoClipBoard(const Str: WideString);
var Size:Integer; Data:THandle; DataPtr:Pointer;
begin
  Size:=Length(Str);
  if Size=0 then exit;
  if not IsClipboardFormatAvailable(CF_UNICODETEXT) then
    Clipboard.AsText:=Str
  else begin
    Size:=Size shl 1 + 2;
    Data:=GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE, Size);
    try
      DataPtr:=GlobalLock(Data);
      try
        Move(Pointer(Str)^, DataPtr^, Size);
        Clipboard.SetAsHandle(CF_UNICODETEXT, Data);
      finally
        GlobalUnlock(Data);
      end;
    except
      GlobalFree(Data);
      raise;
    end;
  end;
end;

пример PutStringIntoClipBoard(memo1.text);

--------------------

MacTep

Дата 26.6.2009, 11:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4

Спасибо!

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »