fullscrn.pas

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

{******************************************************************************}
{*                                                                            *}
{*                        Adirondack Software & Graphics                      *}
{*                               FullScreen Unit                              *}
{*                                   Delphi 5                                 *}
{*          (C) Copyright Adirondack Software & Graphics 1996-2001            *}
{*                                                                            *}
{******************************************************************************}

unit fullscrn;

interface

uses SysUtils, Windows, Messages, Classes, Graphics, Controls, Comctrls,
   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, ImageEnView, ImageEn;

type
   TFullScreen = class( TForm )
    ImageEnView1: TImageEnView;
      procedure ImageClick( Sender: TObject );
      procedure Image1KeyDown( Sender: TObject;var Key: Word;Shift: TShiftState );
      procedure FormKeyPress( Sender: TObject;var Key: Char );
   private
    { Private declarations }
   public
    { Public declarations }
   end;

var
   FullScreen: TFullScreen;

implementation

{$R *.DFM}

procedure TFullScreen.ImageClick( Sender: TObject );
begin
   FullScreen.Close;
end;

procedure TFullScreen.Image1KeyDown( Sender: TObject;var Key: Word;Shift: TShiftState );
begin
   FullScreen.Close;
end;

procedure TFullScreen.FormKeyPress( Sender: TObject;var Key: Char );
begin
   FullScreen.Close;
end;

end.