Formular als JPEG Speichern

[Hador]

Du musst noch

Delphi-Quellcode:

uses
  ... jpeg ...

hinzufügen

Die Prozedur würde ich noch folgendermaßen ändern:

Delphi-Quellcode:

procedure SaveJPEG(Form: TCustomForm; const Path: String);
var
  JPEG: TJPEGImage;
begin
  JPEG := TJPEGImage.Create;
  JPEG.Assign(Form.GetFormImage);
  JPEG.SaveToFile(Path);
  JPEG.Free;
end;

Und aufrufen kannst du sie z.B. so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SaveJPEG(Self, 'C:\Formular.jpg');
end;

EDIT: Nutze bitte für Quellcode die Delphi Tags