screendelay.pas

Apprehend Screen Capture Component Version 4.2 A non-visible component to capture images. Freeware w

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

unit ScreenDelay;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons,
  ComCtrls;

type
  TDelayDlg = class ( TForm )
    Label1: TLabel;
    edScreenDelay: TEdit;
    OKBtn: TButton;
    CancelBtn: TButton;
    UpDown1: TUpDown;
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DelayDlg: TDelayDlg;

implementation

{$R *.DFM}

procedure TDelayDlg.OKBtnClick(Sender: TObject);
begin
   ModalResult := mrOK;
end;

procedure TDelayDlg.CancelBtnClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

end.