Abgeleitetes DataModule mit einigen Komponenten drin

**sir-archimedes**

Hallo,

ich möchte gerne eine abgeleitete DataModule-Klasse erstellen, die mir als Modul-Klasse für mein System dient. Das sieht dann (u.A.) so aus (alles, was nicht sonst noch in dem Modul drin ist, habe ich weggelassen):

zusammenfalten · markieren

Delphi-Quellcode:

			  TModule = Class(TDataModule)

            private

               FBaseActions : TActionList;

            public

               Constructor Create(AOwner : TComponent); Override;

               Destructor Destroy; Override;

            published

               property BaseActions : TActionList read FBaseActions write FBaseActions;

            End;

Constructor TModule.Create(AOwner : TComponent);

Begin

  Inherited Create(AOwner);

  FBaseActions := TActionList.Create(self);

  FBaseActions.Name := 'BaseActions';

End;

Destructor TModule.Destroy;

Var I : Integer;

    Form : TModuleForm;

Begin

  FreeAndNil(FBaseActions);

  Inherited Destroy;

End;

Ich kann in einer neuen Unit auch ohne weiteres ein solches Modul erstellen und z.B. noch Datenbank-Komponenten auf das Modul legen.

Wenn ich nun eine neue Action in "BaseActions" anlege, dann geht das soweit auch wunderbar - nur wenn ich das die Unit speichere und neu lade erhalte ich die Meldung, dass die Komponente "BaseActions" bereits vorhanden ist.

Wie kann ich also sauber eine abgeleitete Klasse von DataModule erstellen, in der schon einige Komponenten vorhanden sind, die ich gegebenenfalls mit dem ObjektInspektor noch ändern kann?

Ich hoffe mal, jemand weiß, was ich meine...

Gruß und danke schon mal!

Abgeleitetes DataModule mit einigen Komponenten drin

Abgeleitetes DataModule mit einigen Komponenten drin

Forumregeln