Icon wird aus TImage gelöscht - warum?

[delphinia]

Siehe Mein Code unten.

wenn in der TImage nen icon geladen - udn dann auf den Button klicke. so ist mein icon aus der Timage verschwunden. ;-( WARUM?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  Bitmap: TBitmap;
  Icon: TIcon;
begin
  Icon := TIcon.Create;
  Bitmap := TBitmap.Create;
  try
    Icon := Image1.Picture.Icon;
    Bitmap.Width := Icon.Width;
    Bitmap.Height := Icon.Height;
    Bitmap.Canvas.Draw(0, 0, Icon);
  finally
    Bitmap.Free;
    Icon.Free;
  end;
end;

[Kedariodakon]

Zitat von delphinia:

wenn in der TImage nen icon geladen - udn dann auf den Button klicke. so ist mein icon aus der Timage verschwunden. ;-( WARUM?

Weil du es freigibst?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var {...}
  Icon: TIcon;
begin
  {...}
    Icon := Image1.Picture.Icon;
  {...}
  finally
    {...}
    Icon.Free;
  end;
end;

Mal ehrlich, für mich macht deine Procedure keinen Sinn... außer dass du das Icon aus dem Image freigibst...
Zudem erzeugst du auch noch ein Speicherleck, weil du das Erzeugte TIcon nichmehr freigibst...

Bye christian

[peschai]

Hallo

Als Hilfe etwas genauer:

Deine Variable "Icon" ist für Speichertechnisch nur ein Zeiger (4Byte) auf das eigentliche Objekt (x Byte).
Mit einer Zuweisung Icon1 := Icon2 werden eigentlich nur die Inhalte der Zeiger ausgetauscht... Dein durch Create angelegtes Object und der Zeiger darauf gespeichert in Variable Icon1 hast du damit überschrieben .. Das genannte Speicherleck....