Zusammenfassend sieht das dann so aus:
Delphi-Quellcode:
procedure TForm1.verschieben;
var BildTemp: TBitmap;
begin
BildTemp:=Tbitmap.Create;
BildTemp:=image1.Picture.Bitmap;
//image1.Picture.Bitmap wird gelöscht
image1.Picture.Bitmap.Canvas.CopyRect(rect(100,100,Bildtemp.Width+100,BildTemp.Height+100),BildTemp.Canvas,BildTemp.Canvas.ClipRect);
end;
Beim Aufruf dieser Prozedur passiert rein gar nichts.
Aber eigentlich müsste es doch funktionieren oder?