Timage under runtime.

hmm så har jeg fået lavet så man kan oprette billeder:

var
  billed : TImage;

og det er på billed jeg laver alle de nye billeder, men hvor dan kan jeg så få dem fjernet igen???

Hej Ziron

Long time No see !!

Du kan evt. sætte denne kode på din dobbelklik event på billedet.

procedure TForm1.Image1DblClick(Sender: TObject);
begin

if messagedlg('Vil du slette dette billede ?', mtconfirmation,[mbyes, mbno], 0 )= mryes then
( TComponent(Sender).Destroy );

end;

Stoney

hey hey... joo det er det, har ikke rigitg haft tid til sjov med delphi i 1. års tid. ikke fedt men sådan kan det jo gå...

jo det kunne man, men jeg skal kalde det fra en anden procedure. men jeg kom til at tænke på om man mon ikke bare kunne give den et name ( altså billede) og så bare free det...

/ZIRON

procedure TForm1.FormCreate(Sender: TObject);
begin
antalimage := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
zironimage : TImage;
begin
inc(antalimage);
zironimage := TImage.Create(self);
zironimage.Name := 'imagenr' + inttostr(antalimage+1);
zironimage.Parent := Panel1;
zironimage.Height := 100;
zironimage.Width := 100;
zironimage.left := antalimage * 100 - 100 + 5;// her bliver de plac. horisontalt med en afstand af 5
zironimage.Top := 15;
zironimage.Picture.LoadFromFile('d:\donald2.bmp');
zironimage.Visible := true;

end;

Så kan du lave alle de image du vil

hehe takker. men at lave dem er ikke noget problem, det er når jeg skal have dem væk igen :)

/ZIRON

så har fået det til at "rulle", lavede en array med billeder, og så kunne jeg godt fjerne dem igen, uden probs, endnu :)

/ZIRON

stiney smider du ikke lige et svar, hvis du er interesseret i lidt??

:-)

Stoney