Hallo,
ich möchte eine Art MEMO Spiel entwerfen, ich habe nun folgendes geschrieben.
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var bilder: array[1..6] of TImage;
var i,z,y,zufallbild,zufallliste:integer;
begin
randomize;
i:=1; z:=0; y:=0;
for i:=1 to 6 do
begin
zufallliste:=random(3);
zufallbild:=random(17);
bilder[i]:=TImage.Create(self);
bilder[i].Height:=100;
bilder[i].Width:=100;
if i > 3 then
begin bilder[i].Top:=140; end else
begin
bilder[i].Top:=20;
end;
if i > 3 then
begin z:=z+1; bilder[i].Left:=150*z; end else
begin
y:=y+1;
bilder[i].Left:=150*y;
end;
if zufallliste >= 1 then begin ImageList1.GetBitmap(zufallbild,bilder[i].Picture.Bitmap);
end else
if zufallliste <= 2 then
begin ImageList2.GetBitmap(zufallbild,bilder[i].Picture.Bitmap);
end;
end;
end;
end.
Nun habe ich überprüft ob das Programm entsprechend .Left .Top richtig setzt -> funktioniert
Ich habe 2 ImageList und beide sind auch gefüllt doch leider ist es nicht möglich irgendwie auf die entstehenden Images, BitMaps zupacken.
Wenn ich ein bereits erschaffenes Image habe und dort etwas hineinlade geht das doch wenn ich die erst auf (create) erstellt geht das nicht, hat jemand eine Idee.
Vielen Dank
Fire