Das Erzeugen der Bitmap sollte besser
vor dem TRY erfolgen.
Und mit der Methode
Draw von TCanvas spart man noch etwas Schreibarbeit
Delphi-Quellcode:
procedure loadbitmap(Paintbox: TPaintBox; Filename: string);
var b:TBitmap;
begin
b := TBitmap.create;
try
b.LoadFromFile(Filename);
Paintbox.canvas.Draw (0, 0, b);
finally
b.free;
end;
end;
Gruß Hawkeye