Von welcher Klasse ableiten?

[Pseudemys Nelsoni]

Moin,

ich brauche soetwas wie TClientSocket, ABER die properties/Events dürfen noch nicht published sein, hat jemand ne Idee von wo ich da am besten ableiten sollte? bei "TCustomSocket" ist dies zwar der Fall, aber am ende braucht diese die Property "Active" und das will ich halt nicht.

[Bernhard Geyer]

Leite ein eigene Klasse von TComponent ab und erzeuge als Member-Variable ein TClientSocket-Instanz.
Dann kannst Du wunderbar nur das freigeben was Du willst.

Alternativ kannst Du eine Komponente erstellen, welche sich mit einer TClientSocket-Komponente verbinden kann (ähnliche z.B. TDatabase-TTable-TDataset-TDBGrid bei Verwendung der BDE).

[Dax]

Oder leite dir einfach eine Komponente von TCostumSocket ab und verändere die Sichtbarkeit der Properties von published nach public.

[Pseudemys Nelsoni]

Hallo Bernhard, ich werds dann so machen, danke für die Idee

@Dax: man kann die Sichtbarkeit nur erhöhren, aber nie verringern.

[Dax]

Dann weiß ich nicht, was bei mir los ist.. ich hab's mit meinem Delphi6 hinbekommen, eine published-Property protected zu kriegen.

[Pseudemys Nelsoni]

moin,

in der Delphi 6 hilfe steht aber genau das gleiche

Zitat:

Sie können die Sichtbarkeit eines Elements in einer untergeordneten Klasse durch Redeklarieren erhöhen, jedoch nicht verringern. So kann beispielsweise eine protected-Eigenschaft in einer abgeleiteten Klasse als public deklariert werden, nicht aber als private. Außerdem können published-Elemente nicht zu public-Elementen gemacht werden. Weitere Informationen hierzu finden Sie im Abschnitt Eigenschaften überschreiben und neu deklarieren.

[Dax]

Dann probier mal das aus.. Bei mir funktionierts.

Delphi-Quellcode:

type
  TBase = class(TCollectionItem)
  private
    fString: string;
  published
    property AString: string read fString write fString;
  end;

  TDescendant = class(TBase)
  protected
    property AString;
  end;

[Pseudemys Nelsoni]

Moin Dax,

dies scheint aber keine Wirkung zu haben, denn wenn ich folgendes habe:

Delphi-Quellcode:

type 
  TBase = class(TCollectionItem)
  private
    fString: string;
  published
    property AString: string read fString write fString;
  end;

  TDescendant = class(TBase)
  private
    property AString;
  end;

und eine instanz von TDescendant erzeuge, kann ich immernoch auf "AString" zugreifen obwohls ja im private ist

[Dax]

Ich verstehe die Welt, bzw. Delphi 6 nicht mehr.

Aber wenn du den Code in die selbe Unit einfügst ist das ja klar, denn im selben Namespace definierte Klassen können sich ja gegenseitig lesen und schreiben wie ihnen lieb ist. Sobald das aber in einer anderen Unit steht, ist TDescendant.AString garantiert private!

PS: Hab's grade selbst ausprobiert, also bitte ^^

[bttb930]

wenn du innerhalb der gleichen unit darauf zugreifst, dann ist das klar. kannst du aus einer anderen unit auch darauf zugteifen?