Speichern der Canvas

[Blubbel]

Kann man das nicht einfach so machen:

Delphi-Quellcode:

procedure TForm1.btnSaveClick(Sender: TObject);
var
//  Bitmap : TBitmap;
  jpg: TJpegImage;
begin
  if SaveDialog1.Execute then
    begin
      jpg:=TJpegImage.Create;
      Try
        jpg.Width:=Image1.ClientWidth;
        jpg.Height:=Image1.ClientHeight;
        BitBlt(jpg.Canvas.Handle,0,0,jpg.Width,jpg.Height,  //jpg.Canvas.Handle geht nicht
               Image1.Canvas.Handle,0,0,SRCCOPY);
        jpg.SaveToFile(SaveDialog1.FileName + '.jpg');
      Finally
        ShowMessage('Gespeichert!');
        jpg.Free;
      end;
    end;
end;

Wobei jpg.Canvas.Handle niht funkrioniert!?