Eigene Klasse von TTabsheet

[Der schöne Günther]

Das mache ich ja auch nicht aus Spaß, sondern nur, wenn es nicht anders geht. In meinem Leben bislang zwei mal: Einmal für irgendeinen (unsinnigerweise protected) onXYZ-Event einer TTrackbar und dieses mal eben für die Scrollbalken eines TDBGrid. Also nur für reine Äußerlichkeiten einer VCL-Komponente.

Ein echter Mann würde eine richtige Unterklasse erstellen, aber da eben das mit VCL-Komponenten auf einem Formular doch nicht einfach in kurzer Zeit einfach zu machen ist (oder irre ich mich?), habe ich lieber zu dieser Methode gegriffen.

Da diese "Interposer-Klasse" nicht in einer anderen Unit, sondern in der gleichen wie das Formular: So kann mir doch keine andere Unit diese Klasse verdecken? Meine ist immer ganz oben, richtig?


Aber ja, es ist ein ziemlicher Hack und sollte man nicht zur Gewohnheit werden lassen. Habe ich bislang auch nur in Delphi mit seiner komischen Interpretation von Sichtbarkeitsmodifikatoren gesehen

[Pro_RJ]

Halli Hallo,
danke erstmal für die Anworten.
Aufgrund der Komplexität des Programmes (über 300 Fenster) und auch der Sicherheit habe ich es jetzt wie folgt gelöst:

Jedes Fenster stammt bei uns von einer gemeinsamen Vorfahrenklasse ab (TMYCustomform) diese Steuert die gesamte Benutzerverwealtung. Diese hab ich jetzt so erweitert, das die Tabsheets auch mit in der Benutzerliste gespeichert werden(hier standen bis her nur die Labels,Edits,Butten usw)

Diese Klasse hab ich jetzt um die Eigenschaft "Tabvisible[Page : TTabsheet]" erweitert. Jeder Aufruf von Tabsheet1.tabvisible := true wird auf Self.Tabvisible[Tabsheet1] := True geändert. Damit habe ich einen gemeinsamen Punkt wo ich prüfen kann, ob der Anwender das register sehen darf oder nicht.

Ausserdem habe ich die TPagecontrol Klasse abgeleitet und ein "BeforeChange" implementiert in der ich abfragen kann welches register jetzt angezeigt werden soll. Dieses Ereigniss prüft in der Benutzerliste ob der Anwender in das register darf oder eben nicht. Darf er nicht lasse ich einen wechsel des Registers einfach nicht zu.

Das ist für uns die Sicherere Variante mit relativ geringem Aufwand. und bei der weiteren Entwicklung muss nichts weiter beachtet werden.

mfg
Jens

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

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