tetimed.pas

delphi2007界面效果控件源码

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.