fullscrn.pas

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

//------------------------------------------------------------------------------
//  Apprehend 2001 Version: 1.1
//  Copyright (c) 2001 : Adirondack Software & Graphics
//  Created            : 1-09-1992
//  Last Modification  : 06-04-2001
//  Description        : FullScreen Unit
//------------------------------------------------------------------------------

unit fullscrn;

interface

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

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

var
  FullScreen: TFullScreen;

implementation

uses frmMain;

{$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.Image1Click ( Sender: TObject );
begin
  FullScreen.Close;
end;

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

end.