TPageControl Ableitung, Erstellung von TabSheets

[wicht]

Hi!

Ich hätte da noch einmal eine Frage, die mit meinem letzten Problem zusammenhängt, siehe hier.
Ich habe also nun TMeinPageControl und TMeinTabSheet. Per Contextmenü im Designer kann ich dem TMeinPageControl nun TMeinTabSheets hinzufügen. Das Problem ist allerdings, dass mein Programm beim Starten immer abschmiert mit der lustigen Meldung "Exception EClassNotFound in Modul hasiputz.exe bei [...]. Klasse TMeinTabSheet nicht gefunden".
Der Unterschied zu dem normalen TabSheet ist scheinbar, dass TMeinTabSheet der Form nicht als Element hinzugefügt wird (Rechtsklick auf TPageControl, "Neue Seite", diese wird dann unter "TForm1 = class(TForm)" hinzugefügt). Wenn ich manuell einfach eine TabSheet-Variable hinzufüge (ohne dass der Designer das Element dazu kennt), startet das Programm mit der IDE-Meldung "Feld asdf besitzt keine Komponente. Soll die Deklaration entfernt werden?", aber danach läuft es.
Wie kann ich es also bewerkstelligen, dass die TabSheets, die ich über meinen eigenen ComponentEditor hinzufüge, der Form als Elemente im Code hinzugefügt werden, wie es beim echten TPageControl passiert? Ich habe mit Owner/Parent herumgespielt, aber das scheint den gewünschten Effekt nicht zu bringen.


Liebe Grüße und danke im Vorraus

[himitsu]

Der VCL-Form-Loader geht über FindClass, wenn es Componenten erstellen muß.

Dafür müssen die Klassen vorher aber auch irgendwo über RegisterClass registriert sein.
Ich hab zwar das Gefühl, daß VCL nötige Klassen vorher registriert hat, aber falls das nicht geplappt hat, könntest du es selber nochmal registrieren. z.B. in der Initialization oder im Class-Constructor von TMeinPageControl.

Auf was hattest du eigentlich den Owner des TMeinTabSheet gesetzt?
( auf den selben Owner, wie bei TMeinPageControl? )

[Bummi]

Bis eine Lösung gefunden ist könntest Du im Pas und DFM die Klassen eine normalen Tabsheets umdeklarieren ..... sorry derzeit habe ich keinen Ansatz

[wicht]

Danke für eure Antworten!

Zitat:

Dafür müssen die Klassen vorher aber auch irgendwo über Delphi-Referenz durchsuchenRegisterClass registriert sein.
Ich hab zwar das Gefühl, daß VCL nötige Klassen vorher registriert hat, aber falls das nicht geplappt hat, könntest du es selber nochmal registrieren. z.B. in der Initialization oder im Class-Constructor von TMeinPageControl.

Was genau meinst du damit? Also, ich habe das TabSheet in meinem Designer-Package registriert mit RegisterComponents. Das ist auch in der Komponentenpalette vorhanden. Ich kann es sogar auf die Form ziehen, das geht bis dahin.

Zitat:

Auf was hattest du eigentlich den Owner des TMeinTabSheet gesetzt?
( auf den selben Owner, wie bei TMeinPageControl? )

Im Editor sieht es gerade so aus:

Delphi-Quellcode:

procedure TMeinPageControlEditor.ExecuteVerb(Index: Integer);
var
  T: TMeinTabSheet;
begin
  inherited;

  T := TMeinTabSheet.Create((Component as TMeinPageControl).Parent);
  T.Parent := (Component as TMeinPageControl).Parent;
  T.PageControl := Component as TMeinPageControl;
  T.Name := 'Test123';
end;

Ich habe glaube ich alle Kombinationen von Owner/Parent durch, in der Form-Klasse wird das Sheet nie hinzugefügt

Zitat:

Bis eine Lösung gefunden ist könntest Du im Pas und DFM die Klassen eine normalen Tabsheets umdeklarieren

Haben die TabSheets denn dann zur Laufzeit die Funktionen von TMeinTabSheet? Vermutlich ja nicht, und dann bringt mir mein ganzes Control nicht mehr viel. Naja, ich komme erstmal weiter damit, meine Geschichten in Komponenten zu gießen, das mit dem PageControl und TabSheet sind eben die, die vermutlich am meisten Probleme machen, deshalb ist mein Gedanke: Klappen die, klappt alles. Nur alle anderen Controls befinden sich eben auf den TabSheets, mit denen steht und fällt am Ende alles...


Auf jedenfall Danke für eure Zeit!

[omata]

Was ich an der ganzen Sache noch nicht so ganz verstehe ist...

Warum müssen das eigene visuale Komponenten sein? Das macht doch nur Sinn, wenn du diese Komponenten in mehreren Projekten einsetzen willst oder eben die Komponenten anderen Programmierern zur Verfügung stellen willst. Wenn es dir aber darum geht, deinen Quellcode übersichtlicher werden zu lassen, indem du Programmzeilen/Funktionalität über visualen Komponenten auslagern möchtest, dann geht das doch viel einfacher.

[wicht]

Zitat:

Was ich an der ganzen Sache noch nicht so ganz verstehe ist...

Also, ich habe ein Programm mit einem Hauptformular. Dort liegt das TMeinPageControl (Align = alClient) mit einigen TabSheets. Auf jedem TabSheet liegen wiederum ganz viele Controls, die beinhalten wieder Controls, und diese beinhalten wiederum Controls. Weil ich dieses TMeinPageControl zur Zeit im Code erzeuge, werden 90% der Komponenten, die ich benutze, im Code erzeugt, und das sind nicht gerade wenig (siehe Screenshots hier). Ich verzichte glaube ich gerade ganz doll aufs RAD und hätte mein Programm sozusagen auch mit Notepad schreiben können... Jetzt möchte ich Änderungen an der Oberfläche vornehmen und das ist zum ko****, wenn ich mich jetzt wieder mal durch den "Komponentenbaum" hangeln muss, der nur als Code existiert...

[omata]

Das hatte ich mir gedacht und meine Antwort lautet:

Du solltest dir mal Frames anschauen, damit kommst du wesentlich schneller und einfacher zum Ziel.

[wicht]

Ja, mit dem Gedanken hatte ich auch schon gespielt - allerdings eher als Notlösung. Vielleicht könnten andere Menschen dazu ihre Meinung kundtun? Ich habe bis jetzt für mich gemeint "Frames... Naja, schön, die gibt es, aber ich könnte doch auch ordentlich arbeiten und alles direkt als Komponenten bauen!" - ist das mit Frames eine "saubere" Vorgehensweise, oder ist die Benutzung von Frames eher ein Workaround?

Edit: Was bei Frames nervig wäre ist wohl auch folgendes beim Zugriff auf Komponenten. Mit meiner Vorgehensweise: "Form.TabSheet.Objekt", mit Frames wäre es "Form.TabSheet.Frame.Objekt". Gut, das könnte man noch verkraften, aber ist trotzdem so eine Sache...

[himitsu]

Mit RegisterComponent registriert man die Klassen für die Komponentenpalette (am Besten in der Register-Prozedur), was nur innerhalb der IDE für den Objekt-Designer eine Wirkung hat.

Die Prezedur Register wird nur von der IDE aufgerufen, aber nicht im fertigen Projekt.



RegisterClass registriert aber für die VCL, zur Laufzeit und für den Designer.

Den PageControl also über RegisterComponent (nur im Designer) und das TabSheet über RegisterControl (für den Designer und eventuell noch für das laufende Programm)

[omata]

Zitat von wicht:

... aber ich könnte doch auch ordentlich arbeiten ...

Ok, mit der Denke wird das natürlich nichts.

Zitat von wicht:

Mit meiner Vorgehensweise: "Form.TabSheet.Objekt", mit Frames wäre es "Form.TabSheet.Frame.Objekt"

Ganz bestimmt nicht! Das Stichwort heißt Zugriffsmethoden (so programmiert man und hat saubere Schnittstellen)

Über Frames kann man logische Bereiche in seiner Anwendung in eine eigene Unit auslagern und man kann Frames innerhalb von Frames verwenden. Damit hat man die Möglichkeit Zwischenschichten einzuführen, die es einem ermöglichen immer komplexere Strukturen zu erzeugen und diese übersichtlich zu halten. Aber das erfordert ein ordentliches Konzept und strukturiertes Programmieren. Dann macht das richtig Spass...