Zitat:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
with TImage.Create(self) do begin
Parent := self;
Width := 100;
Height := 100;
Name:='img1';
Picture.Bitmap.LoadFromFile('C:\test.bmp');
Top := 0;
Left := 0;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
img1: TImage;
begin
img1.free;
end;
Hallo, kann es sein dass du dein Image nicht global definiert hast (schau mal in deine Button2click function) --> var img1 : TImage;
kann sein dass es daran liegt. definier sie mal global