Bei mir klappt das wunderbar. Hab das hier schnell mal runtergecodet:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
png : TPngImage;
begin
png := TPngImage.Create();
try
png.LoadFromFile('J:\Icons\crystal_project\128x128\devices\laptop.png');
//png.LoadFromResourceName(HInstance,'SPLASHSCREEN');
if (Assigned(png)) then
Image1.Picture.Assign(png);
finally
FreeAndNil(png);
end;
end;
Dazu noch ein Image1 : TImage auf die Form und pngimage in die uses eingefügt. Ab welcher Delphi-Version diese
Unit aber automatisch dabei ist, kann ich die nicht sagen.
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)