Komponentenentwicklung - Zwei DataSourcen im Objektinspector

[eulenspiegel]

Hallo zusammen,

hoffentlich bin ich in diesem Forum richtig.

Ich habe eine Komponente geschrieben, in der zwei Datenbankfelder aus zwei TDataSources benötigt werden. Die Komponente funktioniert zur Laufzeit fehlerfrei, lediglich im Objektinspektor verwendet die Feldauswahl für das zweite DataField nicht die vorgesehene DataSource zum füllen der Feldliste, sondern es wird die Feldliste der ersten DataSource herangezogen. Trägt man den Feldnamen von Hand ein, funktioniert die Komponente zur Laufzeit wie erwartet.
Hier die Klassendefinition:

Delphi-Quellcode:

Type

TCustomDBLookupLabel = Class( TCustomLabel )
Protected
   Property DataSource: TDataSource Read GetDataSource Write SetDataSource;
   Property DataFieldName: WideString Read FDataFieldName Write SetDataFieldName;
...
End;

TDBUnitLookupLabel = Class( TCustomDBLookupLabel )
...
Published
   Property DataSource;
   Property DataFieldName;
   Property QuantityFieldName: WideString Read FQuantityFieldName Write SetQuantityFieldName;
   Property QuantityDataSource: TDataSource Read GetQuantityDataSource Write SetQuantityDataSource;
...
End;

Noch mal im Klartext:
Die Feldauswahl von QuantityFieldName zeigt immer die Felder von DataSource an, unabhängig von der Einstellung in QuantityDataSource. Zur Laufzeit funktioniert die Komponente Problemlos.

Kennt jemand dieses Problem und hat eine Lösung dafür?

Grüße, till

[rollstuhlfahrer]

wie soll denn die Komponente funktionieren??
ich meine, man könnte doch (nach meiner auffassung) entsprechend 2 von diesen Labels erstellen mit je einer DataSource.
Für das Problem, dass nur eine DataSource im OI angezeigt hab, hab ich keine Idee...

rollstuhlfahrer

[Christian Seehase]

Moin Till,

nur mal so als Idee:
Die beiden Properties in der Custom-Klasse protected deklarieren, und erst in der abgeleiteten Klasse in published einbauen, also so:

Delphi-Quellcode:

type
  TCustomDBLookupLabel = Class( TCustomLabel )
  protected
   Property DataSource: TDataSource Read GetDataSource Write SetDataSource;
   Property DataFieldName: WideString Read FDataFieldName Write SetDataFieldName;
  end;

  TDBUnitLookupLabel = Class( TCustomDBLookupLabel )
  published
    property DataSource;
    property DataFieldName;
    Property QuantityFieldName: WideString Read FQuantityFieldName Write SetQuantityFieldName;
    Property QuantityDataSource: TDataSource Read GetQuantityDataSource Write SetQuantityDataSource;
  end;

[eulenspiegel]

Hallo zusammen.

@Christian Seehase:
Habe ich falsch dargestellt. Die Props sind in der Custom-Klasse Protected und werden in der Label-Klasse Published. Problem ist trotzdem da: Komponente funktioniert zur Laufzeit, nur die Feldauswahl für das Quantity-Field wird im Objekt-Inspektor (in der IDE) mir den Feldern der falschen DataSource gefüllt.

@rollstuhlfahrer:
Das Label soll mit dem DataField-Property eine Einheit in der Datenbank finden und mit dem Quantity-Property in eine Basiseinheit umrechnen und dann in der Caption anzeigen. Geht halt nur mit dem einen Label.
Das ganze funktioniert doch auch mit dem TDBLookupLabel der VCL (DataSource und ListSource), irgend was muss ich da wohl übersehen oder falsch verstanden haben.

Grüße, till