Vcl.Graphics.TPicture.LoadFromClipboardFormat
Delphi
procedure LoadFromClipboardFormat(AFormat: Word; AData: THandle; APalette: HPALETTE);
C++
void __fastcall LoadFromClipboardFormat(System::Word AFormat, NativeUInt AData, HPALETTE APalette);
Propriétés
Type | Visibilité | Source | Unité | Parent |
---|---|---|---|---|
procedure function |
public | Vcl.Graphics.pas Vcl.Graphics.hpp |
Vcl.Graphics | TPicture |
Description
Lit l'image à partir du handle dans le format spécifié du Presse-papiers.
Utilisez la méthode LoadFromClipboardFormat pour lire un graphique dans le Presse-papiers. Si le format n'est pas géré, une exception EInvalidGraphic est déclenchée.
L'extrait de code suivant montre comment charger une image du Presse-papiers dans un contrôle TImage.
- Remarque : Pour charger une image dans le Presse-papiers, vous pouvez utiliser l'extrait de code pour la méthode SaveToClipboardFormat.
Delphi :
uses
Vcl.Clipbrd;
procedure TForm1.Button1Click(Sender: TObject);
var
Picture: TPicture;
begin
Picture := TPicture.Create;
try
Picture.LoadFromClipboardFormat(cf_BitMap, ClipBoard.GetAsHandle(cf_Bitmap), 0);
Image1.Picture := Picture;
finally
Picture.Free;
Clipboard.Clear;
end;
end;
C++:
#include <Vcl.Clipbrd.hpp>
void __fastcall TForm1::Button1Click(TObject *Sender){
TPicture* Picture;
TClipboard* cb = Clipboard();
Picture = new TPicture();
try{
Picture->LoadFromClipboardFormat(CF_BITMAP, cb->GetAsHandle(CF_BITMAP), 0);
Image1->Picture = Picture;
}
__finally{
delete Picture;
cb->Clear();
}
}