Hallo mkinzler,
hier die beiden Konstruktoren, wie gesagt, ich bin beim auffäumen
Wenn ich DBSql in das Formular setze, ist alles wie immer, nur als Unterobjekt in DBEditSql werden die Eigenschaften nicht mit dem Projekt gespeichert...
Delphi-Quellcode:
constructor TDBEditSql.Create(AOwner: TComponent);
begin
inherited;
FDBSql:=TDBSql.Create(Self);
end;
constructor TDBSql.Create(AOwner: TComponent);
begin
inherited;
FFieldDataLink:=TFieldDataLink.Create;
FieldDataLink.Control:=Self;
FieldDataLink.OnDataChange:=DataChange;
FFieldName:='';
FField:=nil;
FValue:='';
FEnabledControl:=True;
FDataChangingFlag:=False;
FDataInactiveFlag:=False;
FNewDataFlag:=False;
FShowingFlag:=False;
FChangingFlag:=False;
FDefineFieldsFlag:=False;
FBlockedFlag:=False;
IdData:=True;
FIdFieldName:='';
FIdValue:='';
FIdSQL:='';
FIdField:=nil;
FIdIBQuery:=nil;
end;
Gruß Stahli