Wie kommt ein TDBEdit an die Instanz meines DataModules? Warum/Wie funktioniert es?

[RSE]

Hallo,

Standardfall:

In einer Unit MyDataModule ist die Klasse TMyDM = class(TDataModule) definiert. In dieser Klasse gibt es die DataSource MyDS. Zusätzlich gibt es in dieser Unit eine globale Variable MyDM: TMyDM. Nun kann in einer anderen Unit im Formdesigner in dem TDBEdit im Feld DataSource eingetragen werden "MyDM.MyDS".

Zur Laufzeit kann nun das DBEdit auf die Instanz der MyDS zugreifen. Ich habe mir nie den Kopf zerbrochen, wie das funktioniert - wird wohl irgendwie über die globale Variable funktionieren.

Komplizierterer Fall:

MyDs ist in TMyCustomDM definiert. Es gibt keine globale Variable MyCustomDM: TMyCustomDM. TMyCustomDM ist durch Visual Inheritance zu TMyDM abgeleitet und erbt damit MyDS. Es gibt auch keine globale Variable MyDM: TMyDM.
Nun gibt es eine Superklasse TMyCustomForm, auf der ein MyDBEdit: TDBEdit liegt. In TMyCustomForm gibt es eine public Eigenschaft DM: TMyCustomDM read FMyDM. TMyCustomForm ist durch Visual Inheritance zu TMyForm abgeleitet. In TMyForm wir die Eigenschaft DM verdeckt durch eine gleichnamige Eigenschaft DM: TMyDM read GetMyDM, wobei MyDM lediglich eine Typumwandlung durchführt: Result := TMyDM(FMyDM); Im Konstruktor von TMyForm wird das Datenmodul erzeugt: FMyDM := TMyDM.Create(Self); Die Instanz vom Typ TMyDM steckt also in TMyCustomForm.MyDM.
Nun kann ich im FormDesigner in TMyCustomForm.MyDBEdit in der Eigenschaft DataSource "MyCustomDM.MyDS" eintragen.

Auch in diesem Fall funktioniert MyDBEdit wie es soll. Ich kann mir nun aber beim besten Willen nicht mehr vorstellen, wie MyDBEdit an die Instanz des Datenmoduls kommt.

Zur Übersicht Auszüge aus den Units des komplizierteren Falls:

Delphi-Quellcode:

Unit UMyCustomDataModule;
type
  TMyCustomDM = class(TDataModule)
    MyDS: TDataSource;
  end;

Delphi-Quellcode:

Unit UMyDataModule;
type
  TMyDM = class(TMyCustomDM)
  end;

Delphi-Quellcode:

Unit UMyCustomForm;
type
  TMyCustomForm = class(TForm)
    MyDBEdit: TDBEdit;
  protected
    FMyDM: TMyCustomDM;
  public
    property MyDM: TMyCustomDM read FMyDM;
  end;

Delphi-Quellcode:

Unit UMyForm;
type
  TMyForm = class(TMyCustomForm)
  private
    function GetMyDM: TMyDM;
  public
    constructor Create(AOwner: TComponent); override;
    property MyDM: TMyDM read GetMyDM;
  end;
implementation

constructor TMyForm.Create(AOwner: TComponent);
begin
  FMyDM := TMyDM.Create(Self);
  inherited;
end;

function TMyForm.GetMyDM: TMyDM;
begin
  Result := TMyDM(FMyDM);
end;

[RSE]

Zum Hintergrund der Frage: Ich möchte wissen, ob das nur zufällig funktioniert und vielleicht irgendwann nicht mehr geht oder gar Zugriffsverletzungen verursacht.

Ich habe zu dem Thema im Vorfeld versucht zu suchen, es ist mir aber nicht gelungen Suchwörter zu finden, die zu einer Erklärung dieses Sachverhaltes führten. Sollte der oben beschriebene Sachverhalt schon anderweitig beschrieben sein, dann bitte ich um einen kurzen Wegweiser dorthin.

[schlecki]

Zitat von RSE:

Delphi-Quellcode:

Unit UMyCustomDataModule;
type
  TMyCustomDM = class(TDataModule)
    MyDS: TDataSource;
  end;

Keine Angabe der Sichtbarkeit wird mit public gleichgesetzt. Das sollte also immer funktionieren.

[DeddyH]

War es nicht sogar published? Ich meine, in einer Fehlermeldung stand mal sowas.

[schlecki]

hm, da ich nicht soo viel visuell arbeite, ist mir das eigentlich gleich

[RSE]

Keine Sichtbarkeitsangabe = published, ist für alle visuell erzeugten Komponenten Standard. Wer Zugriff auf eine Instanz der Klasse TMyDM hat, der hat auch Zugriff auf MyDS. So weit, so klar. Die Frage ist: Woher kennt die Komponente MyDBEdit die Adresse meiner Instanz von TMyDM? Diese Steckt ja in der Eigenschaft MyDM des Parents (Instanz der Klasse TMyForm) von MyDBEdit, aber das sage ich dem DBEdit ja zur Designtime nicht... MyDBEdit kennt nur "MyCustomDM.MyDS" - kein Hinweis auf Parent.MyDM.MyDS

[stahli]

Ich habe mal versucht zu folgen...
Evtl. gehst Du von etwas falschen Voraussetzungen aus (wenn das jetzt nicht auf mich selbst zutrifft ).

Zur Designtime muss nicht die DBEdit die anzubindendenden Komponenten kennen bzw. finden, sondern ein Eigenschaftseditor, der auf die im Projekt eingebundenen Units direkt zugreift. Also muss die IDE die vorhandenen DataModule kennen, nicht die DBEdit. Die wartet nur stumpf, ob Ihr irgend etwas (von der IDE) zugewiesen wird.

[RSE]

Zur Laufzeit muss das DBEdit ja wissen, woher es seine Anzeige lesen und wohin es seinen geänderten Text schreiben soll, dazu kann ich zur Designtime die Eigenschaften "DataSource" und "DataField" angeben. Diese werden dann zur Laufzeit benutzt, um auf die Datasource zuzugreifen und das Feld aus "DataField" zu lesen bzw. zu schreiben. D.h. aufgrund des Wertes in "DataSource" muss es zur Laufzeit möglich sein, die Instanz der Datasource zu finden. Die Property "DataSource" ist vom Typ TDatasource (also ein "Pointer" auf die Instanz einer Datasource). Da es zur Designtime schlecht möglich ist einen Pointer auf die Adresse zu hinterlegen, in der zur Laufzeit einmal das Objekt stehen wird, wird zur Designtime lediglich der Text "MyCustomDM.MyDS" hinterlegt, welcher dann beim Laden der Komponente MyDBEdit zur Laufzeit in einen Zeiger verwandelt werden muss. Die Frage ist, wie findet die Komponente unter Zuhilfenahme welcher weiteren Informationen das Objekt?

[bhenker]

Wenn ich mich richtig erinnere werden diese Komponenten beim Laden der DFM zugewiesen.
Einfach mal nach FixupReferences in der Classes.pas suchen.
Wird so auf eine Datenquelle in einem externen Datenmodul verwiesen, wird das über die globale Variable des Datenmodule in der jeweiligen Unit aufgelöst.
Deshalb sollte diese Variable zur Laufzeit auch belegt sein. Das wird in der Regel im Project mit "Application.CreateForm(MyDataModule, DMyDataModule)" auch erledigt.
Wenn mann das globale Erstellen dieser Module nicht durchführt, muß man schon selbst dafür sorgen das es erstellt wird.

[RSE]

Wie geschrieben, gibt es diese globale Variable bei mir nicht. Das Datenmodul wird "von Hand" im Konstruktor von MyForm erzeugt. Deswegen wundere ich mich ja, wie es trotz allem noch funktioniert.

FixupReferences gibt es dort einige, und ich verstehe nur Bahnhof...