Formular als JPEG Speichern

[PhilmacFLy]

Am besten du benutzt eine SaveDialog

Delphi-Quellcode:

var
  JPEG: TJPEGImage;
begin
  if
  SaveDialog1.Execute
  then
  begin
    JPEG := TJPEGImage.Create;
    JPEG.Assign(Form1.GetFormImage);
    JPEG.SaveToFile(SaveDialog1.Filename);
    JPEG.Free;
  end;