Delphi to save form client area image to file or clipboard

Unit Unit1;

Interface

Uses
Windows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,
Dialogs, Stdctrls;

Type
TForm1 = Class (Tform)
Button1:tbutton;
Button2:tbutton;
Button3:tbutton;
Procedure Button1Click (Sender:tobject);
Procedure Button2click (Sender:tobject);
Procedure Button3click (Sender:tobject);
End

Var
Form1:tform1;

Implementation

{$R *.DFM}

Uses CLIPBRD; {Shear Plate Unit}

Save the form client area as a picture
Procedure Tform1.button1click (Sender:tobject);
Var
Bit:tbitmap;
Begin
bit: = Tbitmap.create;
bit: = Self.getformimage;
Bit. SaveToFile (' c:\temp\img1.bmp ');
Bit. Free;
End

Complete the previous process with a single word
Procedure Tform1.button2click (Sender:tobject);
Begin
Self.GetFormImage.SaveToFile (' c:\temp\img2.bmp ');
End

Copy the form client area image to the Clipboard
Procedure Tform1.button3click (Sender:tobject);
Var
Format:word;
data:cardinal;
Apalette:hpalette;
Begin
{The three parameters of the Tbitmap.savetoclipboardformat function are data-accepted, as defined by the required type}
Getformimage.savetoclipboardformat (Format, Data, Apalette);
{Put the Clipboard}
Clipboard.setashandle (Format, Data);
End

End.