Property in abgeleitetem Form

[Stevie]

Delphi-Quellcode:

  TStandardForm = class(TForm, IStandardForm)
    ADOConnection: TADOConnection;
    dxBarManager: TdxBarManager;
    ActionList: TActionList;
    ImageList: TImageList;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
    FUseMainConnection: Boolean;
  protected
    MainForm: IMainForm;
  public
    { Public-Deklarationen }
    procedure RegisterForm(AOwner: TComponent);
    procedure UnRegisterForm(AOwner: TComponent);
  published
    property UseMainConnection: Boolean read FUseMainConnection
     write FUseMainConnection stored FUseMainConnection default True;
  end;