videoview.pas

来自「多媒体视频程序设计--使用Delphi 第八章 源碼 ＝＝＝＝ 8-1 静」· PAS 代码 · 共 20 行

unit VideoView;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,VFW;

type
   TCapStatusProc = procedure(Sender: TObject) of object;


  TVideoViewForm = class(TForm)
    procedure  FormCreate(Sender: TObject);
    procedure  FormDestroy(Sender: TObject);
    procedure  FormClose(Sender: TObject; var Action: TCloseAction);

  private
    { Private declarations }
    fDriverIndex         : integer;        // 跌癟 臱笆竟