Code:
procedure TForm1.BitBtn4Click(Sender: TObject);
VAR b :TBitmap;
I,J :Integer;
begin
Form1.Hide;
Form2.Show;
b := TBitmap.Create;
b.Width := 32;
b.Height := 32;
Das soll doch bestimmt auch passend zur Bildgröße sein.
Und nur als Hinweis, "img_breite" wird nie verwendet. Jedenfalls hat Delphi das nicht nochmal gefunden ![Smile](https://www.roboternetz.de/phpBB2/images/smiles/icon_smile.gif)
Das Destroy ist in diesem Fall auch nicht ganz so wichtig, da du ja das Array nie ganz wegwirfst, abgesehen vom Beenden des Programmes.
sast
edit:
@Andree 1x2m, das ist wirklich Klasse geworden.
Lesezeichen