class helper

[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:

Zitat von Stevie (Beitrag 1198206)

inklusive FreeNotification

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

[Stevie]

Zitat:

Zitat von Uwe Raabe (Beitrag 1198214)

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 :mrgreen:).

[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

Delphi-Quellcode:

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

Delphi-Quellcode:

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:

Zitat von Der schöne Günther (Beitrag 1223298)

Was hält mich denn davon ab, eine

Delphi-Quellcode:

TDictionary

-Klassenvariable zu deklarieren, die als Schlüssel eben die Instanz selbst hält?

Gar nichts - solange du deinen Instanzen-Haushalt in Ordnung hältst und die Dictionary-Einträge löscht, wenn die Instanz freigegeben wird.

[JamesTKirk]

Zitat:

Zitat von Der schöne Günther (Beitrag 1223298)

Was hält mich denn davon ab, eine

Delphi-Quellcode:

TDictionary

-Klassenvariable zu deklarieren, die als Schlüssel eben die Instanz selbst hält?

Genau das (nur ein bisschen versteckt) scheint ja dieses

Delphi-Quellcode:

TDependencyProperty

aus DSharp zu machen.

Gruß,
Sven

[Der schöne Günther]

Elaborieren Sie.

[Uwe Raabe]

Zitat:

Zitat von Stevie (Beitrag 1198206)

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.

[JamesTKirk]

Zitat:

Zitat von Der schöne Günther (Beitrag 1224187)

Elaborieren Sie.

Lies dir doch nochmal den Beitrag von Stevie mit dem Quellcode durch. Ich zitier ihn dir mal:

Zitat:

Zitat von Stevie (Beitrag 1198206)

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

{Quellcode mit TDependencyProperty}

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.

Das ist quasi das was du vorgeschlagen hast nur halt schön verpackt, aber mit der Einschränkung, dass es nur für Klassen geeignet ist, die von

Delphi-Quellcode:

TComponent

ableiten (wegen

Delphi-Quellcode:

FreeNotification

).

Gruß,
Sven