fullscrn.pas

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

//------------------------------------------------------------------------------
//  Apprehend Demo
//  Copyright (c) 2000 : Copyright Adirondack Software & Graphics 1996-2000
//  Created            : 12-30-2000
//  Last Modification  : 12-30-2000
//  Description        : fullscrn Unit
//  Requires           : LMD Controls and Preview Components
//------------------------------------------------------------------------------

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.