Image löschen ?

[thomas2009]

Hallo

ich erstelle Images at runtime und möchte ich danach einige löschen

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;

Das Programm wird aber danach ausgeblendet !

[IceBube]

Hallo!

Machs so mal:

Delphi-Quellcode:

procedure ();
var Img : TImage;
begin
Img := (FindComponent('img1') As TImage);
Img.Free;
end;

So wird das Bild gesucht und der Variable zugeordnet, dann kannst du es einfach löschen...

Nicht getestet^

lg

[SimStar001]

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

[thomas2009]

Zitat:

Zitat von IceBube

Hallo!
Machs so mal:

Delphi-Quellcode:

procedure ();
var Img : TImage;
begin
Img := (FindComponent('img1') As TImage);
Img.Free;
end;

lg

Es hat geklappt mit FindComponent. Danke