Grafik von Zwischenablage kopieren Problem ?

[thomas2009]

Hallo

kann jemand mir helfen um das Problem zu lösen :wall:
Ich hole zuerst den Grafik von der Zwischenablage (z.B. von Microsoft Paint) in Image2

Dann versuche ich danach das Bild von Image2 in Image1 zu kopieren
Ich bekomme aber ein weißes Bild !

Delphi-Quellcode:

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Canvas.StretchDraw(Rect(0,0,100,100), Image2.Picture.Bitmap);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if Clipboard.HasFormat(CF_BITMAP) then
Image2.Picture.Assign(Clipboard);

end;

Das Bild und das Project sind im Anhang

[HenKst]

versuchs mal mit

Delphi-Quellcode:

Image.Picture.Bitmap.Assign

[DeddyH]

Versuch es mal mit

Delphi-Quellcode:

Image1.Picture.Assign(Image2.Picture);

[edit]

Zitat:

Delphi-Quellcode:

Rect(0,0,0,0)

Und da wunderst Du Dich, dass Du nichts siehst?[/edit]

[thomas2009]

>> Rect(0,0,0,0)
Nur versehen ; ) logisch
Ich habe den Code oben geändert zu
Rect(0,0,100,100)
Ich bekomme trotzdem ein weißes Bild !

Diese Form : Image1.Picture.Assign(Image2.Picture); kann ich nicht verwenden,
da ich nicht immer das Bild Komplet kopieren und nicht immer an den Punkt 0,0

Das Demo (Projekt ist im Anhang und könnt Ihr testen :roll:

_