dlgaufz.~pas

来自「***智能监视系统*** 程序运行时需要视频捕捉设备」· ~PAS 代码 · 共 75 行

unit dlgaufz;

interface

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

type
  TDlgVPara = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    CheckAudio: TCheckBox;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DlgVPara: TDlgVPara;

implementation

{$R *.DFM}
uses mainf;

procedure TDlgVPara.FormCreate(Sender: TObject);
begin
 with main.videocap1 do
  begin
   Checkaudio.Checked:= capaudio;
   Edit1.text:= inttostr(FrameRate);
   edit2.text:= inttostr(captimeLimit);
   edit3.text:= inttostr(CapIndexSize);
 end;




end;

procedure TDlgVPara.OKBtnClick(Sender: TObject);
var f,a,i:integer;
begin
 modalresult:= mrNone;
 f:= strtoInt(edit1.text);
 a:= strtoint(edit2.Text);
 i:= Strtoint(edit3.text);



 with main.VideoCap1 do
  begin
   capAudio:=CheckAudio.Checked;
   frameRate:= f;
   captimeLimit:= a;
   capIndexSize:= i;
  end;
 modalresult:= mrOk;

 end;

end.