childwin.pas

来自「Apprehend Screen Capture Component Versi」· PAS 代码 · 共 51 行

{----------------------------------------------------------------------------
| Library: ASG Screen Capture ( Apprehend 2001 ) TImage Demo
| Adirondack Software & Graphics Capture Main Form Unit for Delphi 5
| (C) Copyright Adirondack Software & Graphics 1996-2001
|
| Module: ASGCapture
|
| Description: TASGScreenCapture class and non-visible component.
|
| Known Problems: None
|---------------------------------------------------------------------------}

unit Childwin;

interface

uses Windows,
  Classes,
  Graphics,
  GraphicEX,
  Forms,
  Controls,
  StdCtrls,
  ExtCtrls;

type
  TMDIChild = class ( TForm )
    ScrollBox: TScrollBox;
    Image: TImage;
    procedure FormClose ( Sender: TObject;var Action: TCloseAction );
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Child: TMDIChild;

implementation

{$R *.DFM}

procedure TMDIChild.FormClose ( Sender: TObject;var Action: TCloseAction );
begin
  Action := caFree;
end;

end.