Dann macht mans so
procedure GetScreenShot(var mybm: TBitmap);
Gruß
K-H
P.s.
c&P at ist best
Der sinn hinter deiner procedure erschließt sich mir auch nicht. Sorry.
Ob man das jetzt über eine Function regelt oder über eine Procedure spielt eigentlich keine rolle.
Ist Auslegungssache.
Wichtig ist doch nur das ein Bitmap zurückgegeben wird.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
bmp :TBitmap;
begin
bmp := GetScreenShot; // TBitmap das zurückgegeben wird
SaveShotToStream(bmp)
bmp.Free;
end;
procedure SaveShotToStream(PIC: TBitmap);
// bla, bla
bmp := PIC;
//hier nix mit bmp.free wird nachher freigegeben.
gruss