TO32Collection

type TO32Collection = class(TCollection)

protected

  FItemEditor: TForm;

  FReadOnly: Boolean;

  FOwner: TPersistent;

  FOnChanged: TNotifyEvent;

  FOnItemSelected: TOvcItemSelectedEvent;

  FOnGetEditorCaption: TO32GetEditorCaption;

  InLoaded: Boolean;

  IsLoaded: Boolean;

  InChanged: Boolean;

  function GetCount;

  procedure Loaded;

public

  constructor Create(); virtual;

  destructor Destroy; override;

  property ItemEditor: TForm; [rw]

  function Add; dynamic;

  function GetItem();

  function GetOwner; override;

  procedure SetItem();

  procedure DoOnItemSelected();

  function GetEditorCaption;

  function ItemByName();

  function ParentForm;

  property Count: Integer; [r]

  property Item []: TO32CollectionItem; default; [rw]

  property OnGetEditorCaption: TO32GetEditorCaption; [rw]

  property ReadOnly: Boolean; [rw]

  property OnChanged: TNotifyEvent; [rw]

  property OnItemSelected: TOvcItemSelectedEvent; [rw]

end;

TO32Collection

TObject