Wert direkt an Unterobjekt weiterreichen

[jfheins]

Kann ich einen Wert direkt an ein Unterobjekt weiterreichen, statt jedemal ein Wrapperfunktion scheiben zu müssen ?

Also ich habe z.B.

Delphi-Quellcode:

TFMyClass = class(TCustomControl)
  private
    MeineTolleCombobox: TComboBox;

Und möchte sowas machen:

Delphi-Quellcode:

published
    property Text: String read MeineTolleComboBox.Text write MeineTolleComboBox.Text;

Geht aber nicht (Undefinierter Bezeichner TMeineTolle...)

Muss ich für jede Property, die ich "weitergeben" möchte, eine Wrapperfunktion schreiben ?

Oder geht das so, wie ich mir das gedacht habe ?

[Dax]

Eventuell geht das über Interfaces und Method Resolution Clauses.. frag morgen nochmal, ich geh jetzt pennen..

[shmia]

Zitat von jfheins:

Kann ich einen Wert direkt an ein Unterobjekt weiterreichen, statt jedemal ein Wrapperfunktion scheiben zu müssen ?

Nein, du musst jedesmal eine Wrapperfunktion schreiben.
Die Idee von Dax wird nicht funktionieren, da die VCL keine Interface benützt.

[Robert_G]

Zitat von shmia:

Zitat von jfheins:

Kann ich einen Wert direkt an ein Unterobjekt weiterreichen, statt jedemal ein Wrapperfunktion scheiben zu müssen ?

Nein, du musst jedesmal eine Wrapperfunktion schreiben.
Die Idee von Dax wird nicht funktionieren, da die VCL keine Interface benützt.

Hmpf? Schon TComponent implementiert Interfaces, deshalb kann man Controls so einfach eins "drüberstülpen".

Das Problem ließe sich mit minimalem Code lösen... Wenn nicht fast sämtliche Properties in fast sämtlichen Controls bekloppte private Getter/Setter hätten.

Mit protected Accessors wäre es nur das hier:

Delphi-Quellcode:

type
   ITextProperty = interface
      function  getText(): TCaption;
      procedure setText(const Value: TCaption);

      property Text: TCaption read getText write setText;
   end;


type
   TTextProperty = class
   private
      fText: TCaption;
   protected
      function  getText(): TCaption;
      procedure setText(const Value: TCaption);
   published
      property Text: TCaption read getText write setText;
   end;


type
   TSomeClass = class(TInterfacedObject, ITextProperty)
   private
      fTextProperty: TTextProperty;
   protected
      property TextProperty: TTextProperty read fTextProperty implements ITextProperty;
   public
      constructor Create();  virtual;
      destructor  Destroy(); override;
   end;

In deinem Falle ließe sich eine ComboBox(Du könntest TTextProperty durch TComboBox ersetzen ) also von selbst dazu zu übereden ITextProperty für dich in deiner Klasse zu implementieren. Wenn die Property Text in TControl nicht so besch***en implementiert sein würde.

[jfheins]

Wenn ich das jetzt richtig verstanden hab' geht es also nicht, weil die alle private Getter und Setter haben ...

Dann muss ich halt für alles und jeden eine Wrapperfunktion schreiben ... Naja

[Dax]

Aber: Wenn du ja eh Delphi Professional hast, hast du automatisch die Saucen der VCL. Wenn du dir die Mühe machen willst, kannst du ja die Getter/Setter der Properties, die du brauchst, nach protected schieben und Roberts Code nehmen

[Robert_G]

Zitat von Dax:

Aber: Wenn du ja eh Delphi Professional hast, hast du automatisch die Saucen der VCL. Wenn du dir die Mühe machen willst, kannst du ja die Getter/Setter der Properties, die du brauchst, nach protected schieben und Roberts Code nehmen

Das bedeutet aber, dass der Code nur bei ihm kompostierbar ist.

Will er es wirklich ändern, sollte er das TListItem gleich mit ändern. Mit der Originalversion ist es schlichtweg unmöglich irgendwas sinnvolles mit TListView anzufangen.
Dank private accessors bringt dir nämlich eine Ableitung von TListItem fast keinerlei Vorteil.
Und was bringt dir eine ListView-Ableitung ohne spezielle Items, die man an Objekte binden kann?

Ob es in Delphi 2006 eine VCL geben wir, bei der es einem nicht den Magen verdreht?