class property

[gmc616]

Guten Abend DP,

für was ist eine class property Deklaration sinnvoll?

Ich hatte eine Idee, nämlich eine eigene TEdit-Klassen zu basteln und mit einer Class Property alle Texte aller Instanzen zu ändern. Aber das funktioniert ja nicht.

Delphi-Quellcode:

type TMyEdit = class (TEdit)
  private
    class var FMyText: string;
    class procedure SetMyText(const Value: string); static;
  published
  public
    class property MyText : string read FMyText write SetMyText;
end;


class procedure TMyEdit.SetMyText(const Value: string);
begin
  FMyText := Value;
  self.text := Value;  // <-- Compilierfehler
end;

Laut OH wird das, was ich vor habe, auch so nicht funktionieren.

Gibt es eine Möglichkeit in Delphi, eine Property einer Klasse zu ändern, die alle Properties der Instanzen ändert?

In Centure (wer's kennt) geht so was. Dort wird unterschieden zwischen Klassen- und Instanz-Variablen. Ändert man die Instanz-Variable wirkt sich die Änderung nur in der Instanz aus.
Ändert man am Instanz-Objekt eine Klassen-Variable ändern sich alle Instanzen.

[Jelly]

Natürlich kannst du nicht aus einer Klassenmethode auf eine Eigenschaft einer Klasseninstanz zugreifen. Umgekehrt sollte aber gehen, d.h. du musst die GetText Methode (nicht die GetMyText) neu implementieren, und dann jeweils den Wert der Klasseneigenschaft zurückliefern.

Damit wirst du aber die Text Property nicht mehr setzen können... OK, setzen geht, aber das Auslesen liefert dir immer nur den statischen Klassenwert.