class helper

[Mschmidt]

Obwohl es vielleicht eher akademischer Natur ist, gefallen mir die Ansaetze hier eher nicht. Wozu gibt es die Vererbung?
Also

TmyListbox = class(tlistbox)
// erweiterungen einbauen

Ggf. Als neue Komponente installieren und verwenden.
Cheers mschmidt

[Sir Rufo]

Zitat von Mschmidt:

Obwohl es vielleicht eher akademischer Natur ist, gefallen mir die Ansaetze hier eher nicht. Wozu gibt es die Vererbung?
Also

TmyListbox = class(tlistbox)
// erweiterungen einbauen

Ggf. Als neue Komponente installieren und verwenden.
Cheers mschmidt

Das ist in diesem Zusammenhang eher kontraproduktiv.
Meine "Presenter" oder "Adapter" Klasse kann leicht auch auf andere visuelle Komponenten/Frameworks angepasst werden und über eine Factory kann ich diese verbinden. Dadurch kann ich der Factory z.B. ein TMemo, TListBox oder TComboBox (VCL sowie FMX) übergeben und bekomme eine Instanz vom Typ der Basisklasse zurück.

Bei dieser Instanz ändere ich die Eigenschaft FileName und fertig ist.

Mit deinem Ansatz müsste ich immer die konkrete Ableitung der Komponente ansprechen (ja, auch möglich per RTTI, aber schick ist das nicht).

[Mschmidt]

Es wird doch akademisch , ok. In diesem Falle gebe ich dir recht. Jedoch faellt doch das argument, wenn man mehrere funktionalitaeten erweitern moechte. Mehrfachvererbung geht bei D nicht. Imho fange ich dann an, viele adapter zu bauen. Meine persoenliche Meinung ist, strikte Kapselung, sprich; nur die Klasse (visuell oder nicht) selbst kennt seine Funktionalitaeten, fremde Zugriffe erfolgen auf Properties/fkt/proc. Die implementation ist verborgen und physisch auf eine unit beschraenkt. Wird eine neue Funktionalitaet benoetigt, wird die klasse erweitert oder eine neue abgeleitet, nichts anderes. Leider ja, das ist ein
Hoher Aufwand, der sich aber in der Wartung bezahlt macht.
Cheers Mschmidt

[Stevie]

Mit Hilfe von DSharp kann man von TComponent abgeleitete Klassen sehr einfach um Properties erweitern:

Delphi-Quellcode:

unit ListBoxExtension;

interface

uses
  DSharp.Core.DependencyProperty,
  StdCtrls;

type
  TListBoxHelper = class helper for TListBox
  private
    class var FTestProperty: TDependencyProperty;
    class function GetTestProperty: TDependencyProperty; static;

    function GetTest: string;
    procedure SetTest(const Value: string);
  protected
    class property TestProperty: TDependencyProperty read GetTestProperty;
  public
    property Test: string read GetTest write SetTest;
  end;

implementation

{ TListBoxHelper }

function TListBoxHelper.GetTest: string;
begin
  Result := TestProperty.GetValue(Self).AsString;
end;

class function TListBoxHelper.GetTestProperty: TDependencyProperty;
begin
  if not Assigned(FTestProperty) then
    FTestProperty := TDependencyProperty.RegisterAttached('Test', TypeInfo(string), TListBox);
  Result := FTestProperty;
end;

procedure TListBoxHelper.SetTest(const Value: string);
begin
  TestProperty.SetValue(Self, Value);
end;

end.

Dahinter steckt nicht viel mehr als ein Dictionary, in dem die Werte für die Instanzen gespeichert werden, inklusive FreeNotification, um die Werte für freigegebene Instanzen zu löschen.

[Uwe Raabe]

Zitat von Stevie:

inklusive FreeNotification

Deswegen wohl auch die Einschränkung auf TComponent-Derivate. Trotzdem, coole Sache

[Stevie]

Zitat von Uwe Raabe:

Deswegen wohl auch die Einschränkung auf TComponent-Derivate.

Genau, bei anderen Klassen kann man nicht mitbekommen, wenn eine Instanz freigegeben wird (zumindest nicht, ohne sich in das FreeInstance zu hacken ).

[Der schöne Günther]

Hinweis: Der letzte Beitrag in diesem Thema ist älter als ein halbes Jahr.

Ich erlaube mir, trotzdem zu schreiben. Falls das nicht ok bist, einfach löschen


Ich sehe die Problematik, dass Instanzvariablen "angeblich" nicht erlaubt sind, nicht: Was hält mich denn davon ab, eine TDictionary -Klassenvariable zu deklarieren, die als Schlüssel eben die Instanz selbst hält?

Konkretes Beispiel: Ein TButtonHelper soll mir ermöglichen, dass jeder Button weiß, wann er das letzte mal geklickt worden ist:

Delphi-Quellcode:

  TButtonHelper = class helper for TButton
   private
      class var lastPressedDictionary: TDictionary<TButton, TDateTime>;
[...]
      property lastClicked: TDateTime
         read GetlastClicked
         write SetlastClicked;

  end;

In meiner Anwendung kann ich nun problemlos sagen Button99.lastClicked := Now(); Button123.lastClicked := Yesterday(); . Natürlich ist das etwas aufwändiger als die Möglichkeit, einfache Instanzvariablen in einer Helper-Klasse zu haben, aber das beste, was ich kenne.

In der Praxis habe ich bei VCL-Komponenten natürlich noch eine Art "enable/disableHelperFunctionality()" da man das TDictionary ja auch wieder abbauen sollte...

[Uwe Raabe]

Zitat von Stevie:

Mit Hilfe von DSharp kann man von TComponent abgeleitete Klassen sehr einfach um Properties erweitern:
...
Dahinter steckt nicht viel mehr als ein Dictionary, in dem die Werte für die Instanzen gespeichert werden, inklusive FreeNotification, um die Werte für freigegebene Instanzen zu löschen.

Mit der FreeNotification von TComponent kann man die zusätzlichen Instanzen freigeben, wenn die zugehörige Original-Instanz freigegeben wird. Bei nicht von TComponent abgeleiteten Klassen fehlt dieser Mechanismust und man muss sich etwas anderes überlegen.