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
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