Hallo Zusammen,
wie kann ich die Klasse TForm vererben und erweitern?
Wo gibt es Beispiele dazu?
Hintergrund ist - dass ich für meine Anwendungen grundsätzlich ein spez. Form-Design mitgeben möchte.
Vielen Dank vorab für Eure Mühen.
Beste Grüße
MB

Schau Dir als Beispiel mal die ur-alten TNT-Controls an (die aus non-Unicode versuchen Unicode einzubinden).
Delphi TNT

Jede Form die du in deiner IDE erstellst und bearbeitest ist eine Ableitung von TForm .

markieren

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  end;

Vor diesem Hintergrund klingt die Frage etwas seltsam.

Zitat von mbulm1:

Hintergrund ist - dass ich für meine Anwendungen grundsätzlich ein spez. Form-Design mitgeben möchte.

Dann erstelle ein entsprechendes Basis-Form nach deinen Wünschen und leite alle weiteren Forms von diesen ab (unter Neu - Delphi-Projekte - Vererbbare Elemente). Mache ich in vielen Anwendungen schon seit Jahren so.

Zitat von Uwe Raabe:

Zitat von mbulm1:

Hintergrund ist - dass ich für meine Anwendungen grundsätzlich ein spez. Form-Design mitgeben möchte.

Dann erstelle ein entsprechendes Basis-Form nach deinen Wünschen und leite alle weiteren Forms von diesen ab (unter Neu - Delphi-Projekte - Vererbbare Elemente). Mache ich in vielen Anwendungen schon seit Jahren so.

Sorry bitte - wo finde ich ein Beispiel dazu?
Geht das Ganze auch bei Lazarus?
Danke vorab!

Ja prinzipiell geht das, man muss doch immer wieder von Hand eingreifen. Die IDE hat halt das Template Konzept

Template Konzept

Bei Ableitungen und Erweiterungen via Codehelper ist Funktionalität in Form von Funktionen und Prozeduren gut einzusetzen. Aber bei allem was mit visuellen Komponenten zu tun hat, habe ich letztlich immer Probleme gehabt, wenn auf abgeleitete per Formdesigner Komponenten abgelegt oder gelöscht wurden.

Grüße Martin

Auf jeden Fall wie Uwe sagt, das ist immer das allererste was ich in einem VCL-Projekt mache das keine Wegwerf-exe ist.

Zitat von mbulm1:

Sorry bitte - wo finde ich ein Beispiel dazu?
Geht das Ganze auch bei Lazarus?
Danke vorab!

Wie geht das Ganze bei Lazarus?
Gibt es gute Videos oder Tutorials dazu?

Ich mache das auch in Lazarus häufig. Allerdings nur mit "unsichtbaren" Erweiterungen, da dann einfach:

1. Eigene Unit einbinden.
2. Ableitung von = class(TFrom) auf class(TMeineFormAusUnit) abändern.

Damit erledige ich Krams wie einen automatisch in's Systemmenü eingebundes About-Fenster, ein neues Event das erst nach Anzeigen der Form getriggert wird, Zugriff auf XP/Vista/Win7/Win10-Erweiterungen, die in Delphi noch nicht Einzug gehalten hatten, als ich zuletzt damit gearbeitet habe (z.B. Progress Bar im Taskbar-Icon).

Templates sind in meinen Augen etwas anderes, da von Templates kopiert statt ererbt wird. Templates gibt es auch in Lazarus.

Um in Lazarus auch visuelle Form-Teile zu übernehmen, müsstest Du die eigene Form vermutlich in ein Package packen und registrieren. Oder halt dynamisch erzeugen und zur Designzeit darauf verzichten.

Auch die Ableitung einer Form mit visuellen Elementen
ist in Lazarus problemlos möglich.
Erstelle eine Form mit allem was Du als Basis haben möchtest,
binde sie in Dein Projekt ein und erzeuge dann eine abgeleitete Form per
Datei -> Neu -> abgeleiteter Punkt -> abgeleitete Projekt-Komponente
(war für mich einfacher als Templates & Co)