Was kann Paint, was ich nicht kann? ( Clipboard pasten )

[Neutral General]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var pic: TPicture;
    h: HBITMAP;
begin
  pic := TPicture.Create;

  if Clipboard.HasFormat(CF_BITMAP) then
    begin
      h := Clipboard.GetAsHandle(CF_BITMAP);
      Pic.Bitmap.LoadFromClipboardFormat(CF_BITMAP,h,CF_PALETTE);
    end
  else
   Exit;

  Image1.Picture := Pic;
  pic.Free;
end;

Also DAS funktioniert bei mir!

Gruß
Neutral General