Neue Komponente ableiten (FMX)

[Schorschi5566]

Hallo DP,

ich kämpfe gerade wieder einmal mit einem seltsamen Problem.

Folgender Fall:
Ich möchte unter FireMonkey eine neue GroupBox-Komponente ableiten.
Also habe ich mir eine neue Unit erstellt und dort die originale TGroupBox-Klasse hineinkopiert. Anschließend umbenannt auf TMyGroupbox.

In einem Package wird das ganze dann als neue Komponente registriert. Funktioniert alles, wie schon immer.

Wenn ich jetzt aber die neue Komponente auf ein leeres Form ziehe, verhält sie sich trotzdem anders als das Original. Es fehlt zum Beispiel der Name und der Rahmen.

Kann mir jemand sagen, woran das liegen könnte oder bin ich gerade total betriebsblind? :wink:

Muss ich der neuen Komponente noch irgendeinen Style verpassen? Wenn ja, wie kann ich den originalen TGroupBox-Style für die neue Komponente kopieren/verwenden?


Danke im Voraus und Grüße,
Uwe

[DeddyH]

Zitat:

Zitat von Schorschi5566 (Beitrag 1230801)

Also habe ich mir eine neue Unit erstellt und dort die originale TGroupBox-Klasse hineinkopiert. Anschließend umbenannt auf TMyGroupbox.

Ich habe zwar von Firemonkey keinen Schimmer, aber auch dort dürfte das kaum die übliche Vorgehensweise sein, da es sich ja nicht tatsächlich um eine Ableitung der originalen Groupbox handelt. Normalerweise bindet man doch die Unit, die die Vorfahrkomponente enthält, ein und leitet dann tatsächlich davon ab, statt eine Klassenkopie zu erstellen. Ob das Dein Problem löst, vermag ich allerdings nicht zu sagen.

[stahli]

Vielleicht hilft Dir hier etwas auf die Sprünge:

http://www.delphipraxis.net/174552-fmx-styles.html
http://www.delphipraxis.net/174622-fmx-vererbung.html
http://www.delphipraxis.net/162660-f...lthread-5.html #162
http://www.delphipraxis.net/172968-f...ey-styles.html

Ich hatte irgendwo noch ein Thread mit einem TestProjekt, mit einfachen Edit-Ableitungen, die nicht mehr richtig gezeichnet wurden - finde ich aber auf die Schnelle nicht.

Mal klappt etwas bei den Styles, dann wieder nicht. Ist etwa wie Lotto spielen...

[Schorschi5566]

Hallo DeddyH,

hmm also bei der Vcl dachte ich eigentlich schon, dass man so vorgeht.

Beispiel: TMyLabelEdit leitet man doch eigentlich auch von TCustomLabelEdit ab und nicht von TLabelEdit.

In meinem Fall habe ich also von TTextControl (Vorfahr von TGroupBox) abgeleitet. Und damit ich alles von der originalen Komponente dabei habe, kopiere ich die Originalklasse und benenne sie um.



Grüße,
Uwe

P.S.: @stahli: Danke, schau ich mir mal an.:)

[DeddyH]

Die TCustomXXX-Komponenten in der VCL haben AFAIK den Sinn, bestimmte Properties von der Veröffentlichung ausschließen zu können. Will man das gar nicht, spricht IMO nichts dagegen, von der "eigentlichen" Komponente (die ohne Custom) abzuleiten.

[mkinzler]

Zitat:

In meinem Fall habe ich also von TTextControl (Vorfahr von TGroupBox) abgeleitet. Und damit ich alles von der originalen Komponente dabei habe, kopiere ich die Originalklasse und benenne sie um.

Das ist ja unnötig, weil durch die Ableitung ja alles da ist.

[Schorschi5566]

StyleLookup := 'groupboxstyle'; hat das Problem gelöst.

Vielen Dank. ;)

[stahli]

Ergänzung:

Ich habe das Demoprojekt gefunden: http://www.delphipraxis.net/1200494-post133.html

Wenn man von einem TEdit eine Ableitung erzeugt, dann wird der "EditStyle" noch zugewiesen. Wenn man davon aber nochmal eine Ableitung erzeugt, dann wird kein passender Style mehr gefunden und das Control wird als weiße Fläche gezeichnet ... oder so.

[himitsu]

Es könnte sogar sein, daß du mit dem Kopieren der Quelltexte gegen die Lizenzbedingungen verstößt.

TLabelEdit enthält extra keinen Code, dort werden nur Property dichtbar bemacht.
So kann man in ruhe von TCustomLabelEdit ableiten, muß dann aber auch selber dafür sorgen, daß die gewünschten Publisched-Property sichtbar gemacht werden, kann dabei aber notfalls Einiges weglassen, welches nicht benötigt wird.
Denn Unsichtbar machen kann man "offiziell" nichts mehr. (Sichbarkeiten können nur erhöht, aber nicht verringert werden).

Du wolltest nun aber eigentlich von TTextControl ableiten? (Welches scheinbar nicht sowas wie eine TCustomTextControl besitzt)
Dann mußt du auch von TTextControl ableiten und nicht von TGroupBox, denn TTextControl ändert nicht nur sichtbare Property, sondern fügt auch neue "Funktionen" ein und die würden dir dann fehlen. Also wundere dich dann auch nicht, wenn in deiner abgeleiteten raubkopierten Klasse auch etwas fehlt, was erst in TTextControl drin ist.

[edit]
groupboxstyle ... Wenn der Vorfahre "richtig" stimmt, dann könnte diese "fehlende" Zuweisung womöglich auch wieder da sein.
(wenn diese Zuweisung an die Vererbungsebene und nicht diekt an den speziellen Endtype gebunden ist)

[Schorschi5566]

Hallo Himi,

TTextControl ist der Vorfahr von TGroupBox. :wink: Eine TCustomGroupBox gibt es nicht.

Als Faustregel bei der Komponentenableitung könnte man also sagen, dass man vom Vorfahr ableiten sollte, wenn er ein "Custom" im Klassennamen hat, ansonsten von der Originalkomponente. Grob jedenfalls. :cyclops:

Grüße,
Uwe