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 );
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 );
f就是一个前缀
就像
TExplodeForm = class 前面有个t