Hallo nochmal,
ich konnte das Problem leider noch nicht klären...
Im Grunde will ich meine "Unterkomponente" so ähnlich wie TFont im Datenformular speichern.
In der
DFM-Datei steht zu Font:
Delphi-Quellcode:
object Edit1: TEdit
Left = 40
Top = 88
Width = 121
Height = 20
Font.Charset = OEM_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Terminal'
Font.Style = [fsBold, fsItalic]
ParentFont = False
TabOrder = 0
Text = 'Edit1'
end
Meine Komponente wird im Formular so gespeichert:
Delphi-Quellcode:
object DBSqlId1: TDBSqlId
DataSource = DataModule1.DataSource1
FieldName = 'Titel'
Text = 'hjghjhgjghjghj'
DisplayText = 'hjghjhgjghjghj'
EnabledControl = True
IdMode = True
SortValue = 0
SortIdValue = 0
Left = 216
Top = 16
end
Wenn aber meine Komponente einer Unterkomponente einer anderen ist, sieht es nur so aus:
Delphi-Quellcode:
object DBEditSql1: TDBEditSql
Left = 11
Top = 24
Width = 305
Height = 21
MaxLength = 60
TabOrder = 0
DBSqlId = DBEditSql1.DBEditSql1_DBSqlId
end
Das möchte ich gern:
Delphi-Quellcode:
object DBEditSql1: TDBEditSql
Left = 11
Top = 24
Width = 305
Height = 21
MaxLength = 60
TabOrder = 0
...!!!
DBSqlId.DataSource = DataModule1.DataSource1
DBSqlId.FieldName = 'Titel'
DBSqlId.Text = 'hjghjhgjghjghj'
DBSqlId.DisplayText = 'hjghjhgjghjghj'
DBSqlId.EnabledControl = True
DBSqlId.IdMode = True
DBSqlId.SortValue = 0
DBSqlId.SortIdValue = 0
...!!!
end
Hat jemand einen Tipp? Im Objektinspektor ist alles bereits wunderbar, nur das Speichern funktioniert noch nicht.
Ich denke, ich müsste die Speicher- und Load-Procedure erweitern, aber wie?
Danke von Stahli