Kód:
procedure TForm1.PrintForm;
var
c: TCanvas;
b: TBitmap;
begin
c:= TCanvas.create;
c.handle:=GetWindowDC(Handle);
b:= TBitmap.Create;
b.Width:= Width;
b.Height:= Height;
b.Canvas.CopyRect( Rect(0, 0, Width, Height), c, Rect(0, 0, Width, Height) );
b.SaveToFile('obrazok.bmp');
b.Free;
c.Free;
ShowMessage('Uložené');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
PrintForm;
end;
