Eigene Klasse von TTabsheet

[Pro_RJ]

Zitat von Der schöne Günther:

Ah und ich dachte, man kann nicht einfach eine Unterklasse einer VCL-Komponente auf dem Formular erstellen da Delphi doch immer die Oberklasse nimmt? War ich wohl zu dumm dafür, als ich das mal versucht hatte...

Sorry aber irgendwie steh ich gerade auf dem schlauch.
Was meinst du?
Ich habe aus dem TPagecontrol ein TMyPagecontrol gemacht. Auf dem kann ich Per rechter Maus Taste noch immer eine neue Seite erstellen. Diese Seite ist dann noch immer von der Klasse TTabsheet.
Das TForm ist bei mir abgeleitet.
z.B. TForm --> TmyCustomForm --> TFormArtikelstamm

[Der schöne Günther]

Zitat von Pro_RJ:

Ich habe aus dem TPagecontrol ein TMyPagecontrol gemacht. Auf dem kann ich Per rechter Maus Taste noch immer eine neue Seite erstellen.

Ich habe irgendwo noch im Kopf dass ich

• Einfach eine Unterklasse einer VCL-Komponente (z.B. TPageControl) gebildet habe
• Die published-Referenz in der .pas-Datei der Form vom Typ TPageControl auf TMyPageControl geändert habe
• Das keine Auswirkungen hatte: Konkret wurde immer noch ein TPageControl erzeugt statt der Unterklasse
• Ich dann auch noch versucht habe, es in der DFM zu ändern, aber er das nicht angenommen hat

Wie gesagt, das sind nur noch verschwommene Horror-Erinnerungen, wahrscheinlich halte ich den Betrieb mit meinen falschen und vergangenen Halluzinationen unnötig auf. Oder wie bist du vorgegangen?

[Pro_RJ]

Ich hab mir ein neues Package gemacht. Dort ist die TMyPagecontrol deklariert.
dann habe ich in den units per Sucher/ersetzen TPAgecontrol durch TMyPagecontrol ersetzt(in der.Pas und in der .dfm).
Dann die Unit neu gestartet und alles war ok.

Als 2. habe ich dann alle Tabsheet1.tabvisible := ??; ersetzt durch self.Tabvisible[Tabheet1] := ??;

Und das war schon die Änderung in den Units. den Rest habe ich in der Vorfahrenklasse der Fenster gemacht (also der TMyCustomForm)

Wenn wir jetzt ein neues Pagecontrol brauchen verwenden wir halt nicht mehr die Delphi-Klasse TPAgecontrol sondern halt die eigene (TMyPagecontrol)

[Der schöne Günther]

Zitat von Pro_RJ:

Ich hab mir ein neues Package gemacht.

Gut, darum kommt man wohl nicht herum. Ich dachte, es würde auch ohne gehen.