screendelay.pas

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

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

unit ScreenDelay;

interface

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

type
  TDelayDlg = class ( TForm )
    OKBtn: TButton;
    CancelBtn: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    edScreenDelay: TEdit;
    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.