Zitat von
Flo.Hoe:
Das wäre dann wohl folgendes:
Code:
procedure TForm1.verschieben;
var BildTemp: TBitmap;
begin
i:=i+1;
[color=#ff0000][b]BildTemp:=image1.Picture.Bitmap;[/b][/color]
//image1.Picture.Bitmap wird gelöscht
//BildTemp wird auf Position (i,0) gesetzt
end;
Autsch, nein. Ein Bitmap muss vorher Erstellt werden. Bei der Imagekompo macht dir das die
VCL.
Also so:
BildTemp := TBitmap.Create; // ein neues leeres Bitmap (Object) erzeugen
TBitmap