Wie Unterklasse erstellen, wenn Oberklasse nicht in anderen Units nutzbar?

[DCoderHH]

Hallo,

in der Unit Vcl.StdCtrls gibt es die Klasse TComboBoxStrings. Ich muss eine Unterklasse dieser Klasse in meiner eigenen Unit erstellen. Jedoch ist TComboBoxStrings nur im implementation-Abschnitt deklariert. Dadurch ist diese Klasse nicht in anderen Units nutzbar. Wie bekomme ich es trotzdem hin?

So soll es in meiner Unit aussehen:

Code:

TMyComboBoxStrings = class(TComboBoxStrings)

So sieht es in der Vcl.StdCtrls aus:

Code:

implementation
...
  TComboBoxStrings = class(TCustomComboBoxStrings)
...