class helper

[DeddyH]

In dem Fall muss man sich mit einer Cracker-Klasse behelfen, da geht das dann wieder.

Delphi-Quellcode:

uses Windows, SysUtils, {...,} StdCtrls;

type
  TListbox = class(StdCtrls.TListbox)
  private
    FAktive_Datei: string;
  public
    property Aktive_Datei: string read FAktive_Datei write FAktive_Datei;
  end;

  TDeinForm = class(TForm)
    DeineListbox: TListbox; //das ist dann die gerade definierte
    ...
  end;

[Helmi]

Zitat von DeddyH:

In dem Fall muss man sich mit einer Cracker-Klasse behelfen, da geht das dann wieder.

Delphi-Quellcode:

uses Windows, SysUtils, {...,} StdCtrls;

type
  TListbox = class(StdCtrls.TListbox)
  private
    FAktive_Datei: string;
  public
    property Aktive_Datei: string read FAktive_Datei write FAktive_Datei;
  end;

  TDeinForm = class(TForm)
    DeineListbox: TListbox; //das ist dann die gerade definierte
    ...
  end;

Daran hab ich auch schon gedacht! - Dann ergibt sich für mich nicht wirklich der sinn von class helper
aber das ist eine andere Diskussion...

[Mschmidt]

noch ein Nachtrag; class var geht, weil es keine Instanz-Variable ist. Es wäre genau so, als wenn du eine globale Variable deklarierst.
Class Var ist sogar verfügbar, wenn es keine Instanz gibt. Lediglich der Zugriff erfolgt via <Classname>.Variable statt nur Variable.
cheers Ms.

[stahli]

Zitat von Helmi:

Zitat von DeddyH:

In dem Fall muss man sich mit einer Cracker-Klasse behelfen, da geht das dann wieder.

Daran hab ich auch schon gedacht! - Dann ergibt sich für mich nicht wirklich der sinn von class helper
aber das ist eine andere Diskussion...

Mit einem Helper bleibt die Objekt-Klasse unangetastet.

Mit einer CrackerKlasse muss man das Objekt ggf. casten je nachdem von welcher Klasse das Objekt instanziiert wurde und wie es weiter verarbeitet werden soll. Streng genommen sind es nicht mehr die gleichen Klassen (auch wenn deren Namen noch gleich sind).

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