Vererbung zwischen TDataModules wird ständig gelöst?

[Angel4585]

Guten Tag!

Ich habe von einem eigene TDataModule zwei weitere abgeleitet:

Delphi-Quellcode:

TdmSchnittstelle = class(TDataModule)
TdmVariante1 = class(TdmSchnittstelle)
TdmVariante2 = class(TdmSchnittstelle)

Das ganze habe ich über die IDE gemacht, also nicht selbst Units angelegt und angefangen abzuleiten.
Nun hat jede der beiden Varianten ein eigenes Formular, auf dem die Komponenten zu sehen sind. Ist auch OK soweit.
Die Formulare fangen im Code folgendermaßen an:

Delphi-Quellcode:

inherited dmVariante1: TdmVariante1
inherited dmVariante2: TdmVariante2

Jetzt ist es aber so, das öfters (von der IDE) die Vererbung "gelöst" wird.
Jedenfalls die der Formulare, da steht dann plötzlich nurnoch:

Delphi-Quellcode:

object dmVariante1: TdmVariante1
object dmVariante2: TdmVariante2

Beim compilieren klappt das noch alles, aber beim Programmstart kommen dann beim Instanziieren folgende Fehlermeldungen:

Code:

Exception EReadError in Modul MyProgram.exe bei 000ZYX.
Fehler beim Lesen von dmVariante1.ClientHeight: Eigenschaft ClientHeight existiert nicht.

Exception EReadError in Modul MyProgram.exe bei 000XYZ.
Fehler beim Lesen von dmVariante2.ClientHeight: Eigenschaft ClientHeight existiert nicht.

Das Ganze passiert dann, wenn ich z.B. bei Variante1 die Größe des Formulars/Datenmoduls ändere.

Lösen kann ich das nur, indem ich mir das Formular als Text anzeigen lass und händisch object zu inherited ändere.
Dann kommt noch die Meldung:

Code:

Fehler beim Lesen von dmVariante1.ClientHeight: Eigenschaft ClientHeight existiert nicht. Den Fehler ignorieren und fortsetzen?

Das gleiche für ClientWidth und Variante2.
Wenn ich das Ignoriere geht alles wieder wunderbar, bis zum nächsten Vorfall.

Was für ein Problem hat die IDE (oder ich?) hier?
Kann ich in der IDE irgendwo was einstellen damit sowas nichtmehr passiert?

[Uwe Raabe]

Da bist du nicht der einzige: http://stackoverflow.com/questions/5...le-inheritance

[Angel4585]

Danke! Ich bin durch deinen Link auf folgende Seite gestoßen, wo das Phänomen auch etwas erklärt wird: http://wiert.me/2009/08/20/delphi-ti...-the-designer/

[Uwe Raabe]

Zitat von Angel4585:

Danke! Ich bin durch deinen Link auf folgende Seite gestoßen, wo das Phänomen auch etwas erklärt wird: http://wiert.me/2009/08/20/delphi-ti...-the-designer/

Das war die Idee...

[jeroenp]

Dear Angel4585 .

Sorry for writing in English, but my way of "rechtschreiben" probably would make it worse (:

I've not seen this behaviour of datamodules becoming corrutp automagically happen from within the IDE, but there must be a bug somewhere.

I'd appreciate if you can find out steps, and post them (including the affected Delphi version) as a comment to my blog post: http://wiert.me/2009/08/20/delphi-ti...-the-designer/

--jeroen

[Angel4585]

Ich habe das jetzt eine Weile getestet mit folgendem Ergebnis:

-> Kind speichern ohne Veränderung + IDE schliessen und wieder öffnen = Vererbung besteht weiterhin
-> Anwendung compiliert ohne Veränderung = Vererbung wird gelöst + Height und Width wird hinzugefügt
-> Kind gespeichert mit Veränderung der Formulargröße + IDE schliessen und wieder öffnen = Vererbung besteht weiterhin + Height und Width wird hinzugefügt
-> Anwendung compiliert mit Veränderung der Formulargröße = Vererbung wird gelöst + Height, Width, ClientHeight, uvm. wird hinzugefügt

Mit "Vererbung besteht weiterhin" meine ich, dass bei der Ansicht des Formulars als Text als erstes immernoch "inherited" steht anstatt "object".
"Vererbung gelöst" entsprechend umgekehrt.

Beim compilieren wird also irgendwo eine Aktion durchgeführt die das Formular verändert, denn speichern alleine bewirkt das nicht.

Edit:
Zusätzlich gibt es ein problem beim tauschen des "object" gegen das "inherited" im Text-Modus.
Wenn man nich in den Designer-Modus wechselt und die ganzen Meldungen ignoriert, kommen die Meldungen zur Laufzeit wodurch das Programm (in meinem Fall) abstürzt.