TExplodeForm = class(TComponent)
  private//这里的东西定义就是为了给以后其子类继承用的吗,既然定义在这里的东西不能马上用,那么定义来干吗,不太明白前头加F干什么
    FSteps : integer;
    FSource : TControl;
    FShowType: TShowType;
    FSourceLeft: Integer;
    FSourceTop: Integer;
    FSourceWidth: Integer;
    FSourceHeight: Integer;
    FExplodeType: TExplodeType;
    OwnerOnShow: TNotifyEvent;
    OwnerOnPaint: TNotifyEvent;
    OwnerOnHide: TNotifyEvent;
    procedure SetShow( Value: TShowType );
    procedure SetExplode( Value: TExplodeType );