Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как поместить строку в буфер обмена? Работа с Clipboard 
:(
    Опции темы
Alexzz
Дата 15.3.2008, 11:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 87
Регистрация: 9.4.2007
Где: Латвия

Репутация: 1
Всего: 1
Собственно вопрос прост: Как принудительно скопировать стринг в буфер обмена?
PM WWW ICQ MSN   Вверх
Qu1nt
Дата 15.3.2008, 12:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 22
Всего: 50
Где-то нашел:
Код

function SetClipboardText(Wnd: HWND; const Value: string): Boolean;
var
  hData : HGLOBAL;
  pData : Pointer;
  Len   : Integer;
begin
  Result := True;
  if OpenClipboard(Wnd) then
  begin
    try
      Len := Length(Value) + 1;
      hData := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE, Len);
      try
        pData := GlobalLock(hData);
        try
          Move(PChar(Value)^, pData^, Len);
          EmptyClipboard;
          SetClipboardData(CF_Text, hData);
        finally
          GlobalUnlock(hData);
        end;
      except
        GlobalFree(hData);
        raise;
      end;
    finally
      CloseClipboard;
    end;
  end
  else
    Result := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetClipboardText(Self.Handle, 'qwerty');
end;
PM MAIL   Вверх
VICTAR
Дата 15.3.2008, 13:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 10
Всего: 80
Код

uses Clipbrd;

procedure TForm1.btn1Click(Sender: TObject);
begin
   with TClipBoard.Create do
    try
      SetTextBuf('Как принудительно скопировать стринг в буфер обмена?');
    finally
      Free;
    end;
end;
PM MAIL   Вверх
Alexzz
Дата 15.3.2008, 15:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 87
Регистрация: 9.4.2007
Где: Латвия

Репутация: 1
Всего: 1
VICTAR, спасибо! Просто и действенно.
PM WWW ICQ MSN   Вверх
Shaggy
Дата 15.3.2008, 15:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 37
Регистрация: 2.5.2007
Где: г.Ижевск

Репутация: 2
Всего: 5
а просто:
Clipboard.AsText:=...
уже не катит?
PM MAIL ICQ   Вверх
Qu1nt
Дата 15.3.2008, 15:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 22
Всего: 50
Зато мой пример работает без дополнительных модулей (%
PM MAIL   Вверх
VICTAR
Дата 15.3.2008, 15:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 10
Всего: 80
Цитата(Qu1nt @  15.3.2008,  15:39 Найти цитируемый пост)
Зато мой пример работает без дополнительных модулей (% 

Можно вообще отказаться от VCL, зато без дополнительных модулей  smile 
PM MAIL   Вверх
aktuba
Дата 15.3.2008, 19:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


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

Репутация: 7
Всего: 38
Цитата(Qu1nt @  15.3.2008,  16:39 Найти цитируемый пост)
Зато мой пример работает без дополнительных модулей (% 

Это не всегда плюс и очень редко действительно необходимо...


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Qu1nt
Дата 15.3.2008, 20:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 22
Всего: 50
Пример можно использовать, когда необходим небольшой размер программы. В остальных случаях случаях - вы правы.

Это сообщение отредактировал(а) Qu1nt - 15.3.2008, 20:46
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1186 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.