Как из буфера вставить в image рисунок ?
Не помню, блин

----------
Заранее благодарен !!

Вот реальный код из программы :

Код

if (Clipboard.HasFormat(CF_Bitmap))or (Clipboard.HasFormat(CF_METAFILEPICT))  then begin     Image1.Picture.Assign(Clipboard);    {... } end;

Это сообщение отредактировал(а) SlaUr - 25.3.2004, 09:31

//копировать в буфер обмена
Var
vHandle:THandle;
vPalette:HPalette;
vFormat:Word;
begin
try
DBImage1.Picture.SaveToClipboardFormat(vFormat, vHandle, vPalette);
ClipBoard.SetAsHandle(vFormat,vHandle);
except
beep;
ShowMessage('Ошика');
end;
---------------------------------------
//ВСТАВИТЬ из буфера обмена
try
DBImage1.Picture.LoadFromClipboardFormat(cf_BitMap, ClipBoard.GetAsHandle(cf_Bitmap),0);
except
beep;
ShowMessage('Ошибка');
end;
---------------------------------------
//ВЫРЕЗАТЬ из буфера обмена
Var
vHandle:THandle;
vPalette:HPalette;
vFormat:Word;
begin
try
DBImage1.Picture.SaveToClipboardFormat(vFormat, vHandle, vPalette);
ClipBoard.SetAsHandle(vFormat,vHandle);
DBImage1.Picture.Assign(nil);
except
beep;
ShowMessage('Ошибка');
end;