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