Mach' Dir 'nen Nachfahren von TForm (oder Deiner aktuell genutzten Formularvariante), gönne dem Nachfahren ein Attribut DataModule vom Typ TDataModule.
Dann kannst Du im Objektinspektor dem Formular ein DataModule zuweisen, analog z. B. zu der Eigenschaft DataSet bei 'ner DataSource.
Grob in Delphi:
Delphi-Quellcode:
Type
TfmMeinDataModulForm = class(TForm)
fDataModule : TDataModule;
...
public
property DataModule : TDataModule read GetDataSource write SetDataSource;
...
end;
implementation
...
function TfmMeinDataModulForm.GetDataModule : TDataModule;
begin
Result := fDataModule;
end;
procedure TfmMeinDataModulForm.SetDataSource(ADataModule : TDataModule);
begin
fDataModule := ADataModule;
if Assigned(fDataModule) then begin
... // eventuell erforderliche weitere Zuweisungen, Plausibilitätsprüfungen ...,
// in Bezug auf das DataModule.
// Z. B.: Sind dort die erforderlichen DataSets ... vorhanden ...
end;
end;
Im Programmquelltext wäre dann ein Zugriff auf das DataModule in der Form
Delphi-Quellcode:
...
Self.DataModule.JedePublicEigenschaftDesDataModules.UndDerenEigenschaftenUndOderMethoden(ggflsMitParametern);
...
Self.DataModule.DataSource1.DataSet.Open;
while not Self.DataModule.DataSource1.DataSet.EoF do begin
// ... irgendwas mit den Daten machen ...
Self.DataModule.DataSource1.DataSet.Next;
end;
möglich.
Wenn's ohne extra Nachfahren sein soll, kannst Du auch unter private eine Eigenschaft FDataModule vom Typ TDataModule anlegen und im FormCreate (oder sonstiger passender Stelle) ein DataModule erstellen und zuweisen. Der Zugriff geht wie oben.
Das ist jetzt nur grob als Idee beschrieben, es gibt bestimmt auch noch andere Lösungen.