procedure TForm1.Button1Click(Sender: TObject);
var
MyFormat : Word;
Bitmap : TBitMap;
AData: THandle;
APalette:HPalette;
begin
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile('c:/q.bmp');
Bitmap.SaveToClipBoardFormat(MyFormat,AData,APalette);
ClipBoard.SetAsHandle(MyFormat,AData);
finally
Bitmap.Free;
end;
Image1.Picture.Bitmap.LoadFromClipboardFormat(MyFormat,AData,Apalette);
end;
----------------------------------------------
TBitmap.SaveToClipboardFormat
Creates a local copy of the bitmap in Clipboard format.
procedure SaveToClipboardFormat(var AFormat: Word;
var AData: THandle;
var APalette: HPALETTE);
override;
Description
Use SaveToClipboardFormat to copy the bitmap to a Clipboard format.
The bitmap palette is returned in the APalette parameter,
{此位图的颜色在APalette这个参数中返回 }
the format in the AFormat parameter, and a handle to the data
in the AData parameter.
{此位图的格式在AFormat 这个参数中返回 ，数据的句柄在AData中返回 }
Before the bitmap can be saved,
an application must have registered the format with the TBitmap object
using the RegisterClipboardFormat method.
