Einzelnen Beitrag anzeigen

Benutzerbild von Catbytes
Catbytes

Registriert seit: 7. Sep 2002
Ort: Heckendalheim
353 Beiträge
 
Delphi XE5 Enterprise
 
#12

Re: Image in den Zwischenspeicher

  Alt 18. Mär 2005, 09:16
Hallo,

was spricht gegen diesen Code?

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  MyFormat : Word;
  AData : THandle;
  APalette : HPalette;
begin
  Image1.Picture.SaveToClipBoardFormat(MyFormat,AData,APalette);
  ClipBoard.SetAsHandle(MyFormat,AData);
end;
ClipBrd in Uses nicht vergessen...
Catbytes
  Mit Zitat antworten Zitat