Что в буффере обмена?

← →
Kolya © (2002-10-30 03:44) [0]

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

← →
MBo © (2002-10-30 06:20) [1]

Clipboard.HasFormat

← →
Zergling (2002-10-30 06:50) [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);

← →
Zergling (2002-10-30 07:09) [3]

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

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;

Что в буффере обмена? Найти похожие ветки