Datamodule wird zu Formular

[himitsu]

zum Pauschal: Es ist quasi fast unvorhersehbar, ob es funktioniert, also besser nicht benutzen.


Man kann versuchen, ob es funktioniert (wird zumindestens besser, solange das Package mit dem Vorfahren in Delphi installiert/geladen ist), wenn man den Vorfahren registriert
oder man verzichtet eben besser auf eine visuelle Vererbung von Nicht-TForms, von welchen Delphi den Vorfahren nicht direkt kennt.

[Dejan Vu]

Zitat von himitsu:

zum Pauschal: Es ist quasi fast unvorhersehbar, ob es funktioniert, also besser nicht benutzen.

Mag sein, aber bei mir ist 'quasi fast unvorhersehbar' mit 'noch nie' gleichzusetzen, wobei sich dieses 'noch nie' auf einen Zeitraum von 16 Jahren bezieht.

Wurde schon nach der DFM gefragt? Poste doch mal eine abgeleitete DFM... Die ersten 10 Zeilen sollten reichen.

[Sir Rufo]

Das Verhalten ist reproduzierbar:

Delphi-Quellcode:

unit dm1;

interface

uses
  System.SysUtils, System.Classes;

type
  TDataModule1 = class(TDataModule)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  DataModule1: TDataModule1;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

end.

Delphi-Quellcode:

unit dm2;

interface

uses
  System.SysUtils, System.Classes;

type
  TDataModule2 = class(TDataModule)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  DataModule2: TDataModule2;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

end.

Bis hier ist die Welt noch in Ordnung ...

Jetzt den Fehler einbauen:

Delphi-Quellcode:

unit dm2;

interface

uses
  System.SysUtils, System.Classes, dm1; // <- da

type
  TDataModule2 = class(TDataModule1) // <- da
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  DataModule2: TDataModule2;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

end.

Speichern, Alles schliessen, Projekt wieder öffnen ... DataModule2 öffnen => eine Form!

• Wie kann man das heilen?
  1. Öffnen der dm2.dfm
     
     Code:

     object DataModule2: TDataModule2
       OldCreateOrder = False
       Height = 150
       Width = 215
     end

  2. abändern zu
     
     Code:

     inherited DataModule2: TDataModule2
       OldCreateOrder = False
     end

     und speichern
  3. Jetzt das Projekt neu laden und alles ist wieder schick ...
• Wie sollte man das richtig machen?
  
  Zum Ableiten von TForm /TFrame /TDataModule geht man über
  1. Datei - Neu - Weitere...
  2. Delphi-Projekte - Vererbbare Elemente - DataModule1
  3. OK klicken
  Das war es schon.

PS Dieses manuelle Ableiten funktioniert (halbwegs) nur bei Formularen, denn es wird automatisch angenommen, dass es sich um ein Formular handelt. Empfohlen ist diese Vorgehensweise aber nicht.

[OlafSt]

Ich habe mal den Heilungsprozeß von Sir Rufo durchgeführt. Tatsächlich steht bei den Problem-Datamodules in den DFM-Files "object", während bei den "gesunden" DFMs ein "inherited" steht. Allerdings sind alle Datamodules "per Hand" abgeleitet, von daher muß da noch was anderes im Busch sein - aber wie schon erwähnt wurde, dürfte das in der IDE und ein Fix in sehr weiter Ferne liegen

Da findige Leute meinen Thread in der EE aufgespürt haben (hatte vergessen, das ich ihn da eröffnet hatte), werde ich den Thread hierhin verweisen lassen.

Was lernen wir daraus ? Da will man mal was anderes ausprobieren und den empfohlenen Weg gehen und wird dann so dafür belohnt Ich gelobe feierlich, von Datamodules gleich wieder die Finger zu lassen, so wie ich es all die Jahre zuvor auch getan habe

[Uwe Raabe]

Zitat von OlafSt:

Allerdings sind alle Datamodules "per Hand" abgeleitet, von daher muß da noch was anderes im Busch sein - aber wie schon erwähnt wurde, dürfte das in der IDE und ein Fix in sehr weiter Ferne liegen

Liegt definitiv nicht an der IDE, sondern immer am User!

Das Ableiten "per Hand", also das einfach Ändern der Parent-Klasse in der PAS-Datei funktioniert immer dann, wenn die Klasse (Datamodule, Frame oder Form) bereits von einem TForm-, TFrame bzw. TDataModule-Abkömmling abgeleitet ist. Dann steht in der DFM nämlich schon inherited drin. Nur wenn man class(TForm) in class(TBaseForm) oder class(TDataModule) in class(TBaseDM) ändert, muss man die DFM anpassen und aus dem object ein inherited machen.

Man muss sich halt nur klar machen, daß einfache Klassenvererbung per Deklaration und Formvererbung, die dann ja auch bei Frames und Datenmodulen verwendet wird, eben nicht dasselbe sind.

[mm1256]

Zitat von Sir Rufo:

PS Dieses manuelle Ableiten funktioniert (halbwegs) nur bei Formularen, denn es wird automatisch angenommen, dass es sich um ein Formular handelt. Empfohlen ist diese Vorgehensweise aber nicht.

Kann ich absolut bestätigen, würde sogar weiter gehen und sagen, das tut man einfach nicht, weil's Probleme gibt. Darum habe ich auch in #2 schon nach der DFM gefragt. Ich nutze die Datenmodul-Vererbung intensiv schon seit mehreren Jahren, weil ich Apps habe, die sowohl mit embedded Datenbank als auch mit externem DB-Server arbeiten. Da ist die DM-Vererbung eine prima Sache und hat mir auch noch niemals Probleme bereitet.