Текущий архив: 2006.04.30;
Скачать: CL | DM;

Вниз

Как загнать текст в буфер программно?   Найти похожие ветки 

← →
Muhan_   (2006-03-24 13:52) [0]

Надо загнать допустим из memo1.text в буфер...как это сделать программно... :)
Спасибо заранее )

---

← →
MBo ©   (2006-03-24 14:14) [1]

CLipboard.Text

---

← →
clickmaker ©   (2006-03-24 14:35) [2]

+

if Win32Platform = VER_PLATFORM_WIN32_NT then begin

 Len := Length(sText);
 cbSize := MultiByteToWideChar(CP_ACP, 0, PChar(sText), Len, nil, 0);
 if (cbSize > 0) then begin
   Mem := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE, (cbSize shl 1) + 2);
   if Mem <> 0 then begin
     WP := GlobalLock(Mem);
     try
       if WP <> nil then begin
         MultiByteToWideChar(CP_ACP, 0, PChar(sText), Len, WP, cbSize);
         SetClipboardData(CF_UNICODETEXT, Mem);
       end;
     finally
       GlobalUnlock(Mem);
     end;
   end;  
 end;
end;

---

← →
Muhan_   (2006-03-24 16:45) [3]

хмм CLipboard.Text будет достаточно? :)

---

← →
Muhan_   (2006-03-24 17:27) [4]

блин, не разобратья ))
переменные не описаны ((

CLipboard.Text ...а с этим не разобраться что добавить в Uses

---

← →
Гаврила ©   (2006-03-24 19:14) [5]

> а с этим не разобраться что добавить в Uses

Посмотри в справке
в D7 справка нормальная, такие вещи надо уметь искать в справке

---

Страницы: 1 вся ветка

Текущий архив: 2006.04.30;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.03 c