TAdapterRTF.SourceComp




Beispiel:

procedure openTemplates; var aRTF: TAdapterRTF; begin TableObjektVorlage.setstringparam('OB_ID', self.getparam('OB_ID')); TableObjektVorlage.readData; aRTF := TAdapterRTF.Create; try aRTF.SourceComp := 'MenuDocVorlagen'; aRTF.SourceID := self.DI_ID; aRTF.CO_ID := self.CO_ID; aRTF.DefaultStorageType := 'Objektablage'; aRTF.AddPrimaryDataSet(TableObjektVorlage, 'Objekt Daten', '', nil); aRTF.TemplateListdlg; finally aRTF.Free; end; end;