tetimed.pas

来自「delphi2007界面效果控件源码」· PAS 代码 · 共 21 行

unit teTimed;

interface

{$INCLUDE teDefs.inc}

uses
  Windows, Messages, SysUtils, Classes, TransEff, teChrono, Graphics;

type
  TTimedTransitionEffect = class(TTransitionEffect)
  published
    property Milliseconds;
  end;

implementation

uses MMSystem;

end.