Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Что в буффере обмена? [D4, Win2k]


Kolya ©   (2002-10-30 03:44:00) 

Как узнать что находится в буффере- текст или рисунок и скопировать содержимое в TBitmap или String. Помогите пожалуйста.


Zergling   (2002-10-30 07:09:00) [1]

Блин с картинкой наврал. Будет так:

var TmpBmp:TBitMap;

// Картинка

TmpBmp:=TBitmap.Create;

if ClipBoard.HasFormat(CF_BITMAP) then TmpBmp.LoadFromClipboardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
Image1.Canvas.Draw(0,0,TmpBmp);
TmpBmp.Free;


Zergling   (2002-10-30 06:50:00) [2]

Чтото вроде того:

// Текст
if ClipBoard.HasFormat(CF_TEXT) then Memo1.PasteFromClipBoard;
// Картинка
if ClipBoard.HasFormat(CF_PICTURE) then
Image1.Canvas.Brush.Bitmap.LoadFromClipboardFormat(CF_BITMAP,ClipBoard.GetAsHandle(cf_Bitmap),0);


MBo   (2002-10-30 06:20:00) [3]

Clipboard.HasFormat


Наверх

Титульная страница Поиск, карта сайта Написать письмо