CaptureActiveClient Example for Delphi 4.0

This is also the example for the CaptureCursorIndex property.

    {set Capture cursor}
    {and include it in captured image}
    LEADScr1.CaptureDelay := 3000;
    LEADScr1.CaptureCursor := crArrow;
    LEADScr1.CaptureAreaIncludeCursor := True;

    {capture the client area of the active window}
    LEADScr1.CaptureActiveClient();

    {copy the captured image to a Main Control}
    LEAD1.Bitmap := LEADScr1.Bitmap;