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):
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!