@Angel4585
Noch ein Wort zu meinem vorherigen Post: Als ich das geschrieben habe, war es schon spät und Guido war sehr, sehr müde!
Als ich das heute nochmal durchgelesen habe, klang das irgendwie ein wenig hart! Eigentlich wollte ich da noch ein paar Smilies einfügen, um das aufzulockern. Der Leser sieht man ja nicht, wie der Schreiber das meint. Deshalb hier noch die Klarstellung, dass das
nicht bös oder sonstwie abweisend gemeint war!
@Ingo
Danke für Antwort!
@xaromz
Was ist Chrome? In Delphi geht dieses Konstrukt nicht.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Icon: TIcon;
begin
with Icon := GetFileIcon('C:\Test.ico') do
begin
Image1.Picture.Graphic := Icon;
Icon.Free;
end;
end;
@Hawkeye
Zitat von
Angel4585:
Wird da nicht gleichzeitig auch Image1.Picture.Graphic freigegeben?
Das hätte ich auch gedacht.
Zitat von
Hawkeye219:
Nein, intern wird beim Schreibzugriff auf die Eigenschaft Graphic eine neue TGraphic-Instanz angelegt, der dann mittels Assign() das übergebene Bild zugewiesen wird.
Hier der "Aha!"-Effekt! Und wieder was dazugelernt!
Gruß,
Guido.