Vcl.Graphics.TBitmap.SaveToClipboardFormat
Delphi
procedure SaveToClipboardFormat(var Format: Word; var Data: THandle;
var APalette: HPALETTE); override;
C++
virtual void __fastcall SaveToClipboardFormat(System::Word &Format, NativeUInt &Data, HPALETTE &APalette);
プロパティ
| 種類 | 可視性 | ソース | ユニット | 親 |
|---|---|---|---|---|
procedure function |
public | Vcl.Graphics.pas Vcl.Graphics.hpp |
Vcl.Graphics | TBitmap |
説明
ビットマップのローカル コピーを、Clipboard 形式で作成します。
SaveToClipboardFormat を使用すると、このビットマップを Clipboard 形式にコピーします。 ビットマップのパレットは APalette パラメータに、形式は AFormat パラメータ、さらにデータのハンドルは AData パラメータに返ります。 ビットマップが保存される前に、アプリケーションは RegisterClipboardFormat メソッドを使用して、TBitmap オブジェクトと共に形式を登録していなければなりません。
次のコード スニペットは、ビットマップをクリップボードに保存する方法を示しています。
- メモ： ビットマップをクリップボードから読み込むには、LoadFromClipboardFormat メソッドのコード スニペットを使用します。
Delphi：
uses
Vcl.Clipbrd;
procedure TForm1.Button1Click(Sender: TObject);
var
MyFormat : Word;
Bitmap : TBitMap;
AData : THandle;
APalette : HPALETTE;
begin
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile('C:\Users\Public\Pictures\Sample Pictures\desert.bmp');
Bitmap.SaveToClipBoardFormat(MyFormat, AData, APalette);
ClipBoard.SetAsHandle(MyFormat,AData);
finally
Bitmap.Free;
end;
end;
C++：
#include <Vcl.Clipbrd.hpp>
void __fastcall TForm1::Button1Click(TObject *Sender){
TClipboard* cb = Clipboard();
unsigned short MyFormat;
TBitmap* Bitmap;
THandle AData;
HPALETTE APalette;
Bitmap = new TBitmap();
try{
Bitmap->LoadFromFile("C:\\Users\\Public\\Pictures\\Sample Pictures\\desert.bmp");
Bitmap->SaveToClipboardFormat(MyFormat, AData, APalette);
cb->SetAsHandle(MyFormat, AData);
}
__finally{
delete Bitmap;
}
}