"TCustomForm" möglich?

[rawsoul]

Hallo,

da ich mir gerne meine Forms ein wenig kreativer gestalte (z.B. bsNone, Panels drauf und diese als Fenstertitel "missbrauchen", ...), habe ich mich eben in die Komponentenentwicklung eingelesen, um mir Arbeit zu ersparen. Bis ich gemerkt habe, das eine Form garkeine eigentliche Komponente in diesem Sinne ist...

Gibt es die Möglichkeit, eine Art Form-Template, oder gar eine eigene Form selbst zu definieren, sodass ich diese in anderen Projekten nur noch einladen muss? Falls nein, welchen Weg würdet ihr dazu gehen?

Grüße,
Frank.

[OregonGhost]

Du könntest TForm ableiten (z.B. nach TCustomForm) und alle deine Formulare im Programm von dieser abgeleiteten Klasse ableiten statt von TForm.

[RavenIV]

Also ich habe mir ein TMasterForm von TForm abgeleitet.
Darauf sind alle Komponenten, die von allen weiteren Form benötigt werden.
Alle anderen Form sind also Nachkommen von meinem TMasterForm.
Diese haben also auch die "Basis"-Komponenten drauf.

TFoZutrittskontrolle = class(TFoMasterForm)

[Hansa]

Eine Form ist nur bedingt mit einer Komponente/Klasse zu vergleichen. Man kann nicht einfach TForm2 = class (TForm1) schreeiben, zumindest nicht ohne beträchtliche Nebenwirkungen. Benutze für so etwas besser die Objektablage.

[RavenIV]

Zitat von Hansa:

Eine Form ist nur bedingt mit einer Komponente/Klasse zu vergleichen. Man kann nicht einfach TForm2 = class (TForm1) schreeiben, zumindest nicht ohne beträchtliche Nebenwirkungen. Benutze für so etwas besser die Objektablage.

Mann, Mann, Mann.
Wird denn hier jedes Wort im Mund rumgedreht?

Ich habe meine Forms alls von TMasterForm abgeleitet.
Dadurch sieht der interface-Teil so aus:

Delphi-Quellcode:

unit Zutrittskontrolle;

interface

uses
  SysUtils, Classes,...

type
  TFoZutrittskontrolle = class(TFoMasterForm)
    LaCode: TcxLabel;
    ...
    BuAbbrechen: TButton;
    BuOK: TButton;
    ...
    EdTuere: TIB_Edit;
    ...
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    ...
  private
    fUnsaved: Boolean;
    ...
  public
    procedure ZLEventHandler(aEvent: TZLEvent); override;
  end;

var
  FoZutrittskontrolle: TFoZutrittskontrolle;

[rawsoul]

Klingt alles sehr vielversprechend. Über Datei -> Neu -> Komponente wird es aber nicht funktionieren, nehme ich an? Zumindest kann ich TForm nicht in den "Vorfahrkomponenten" finden.

[Hansa]

Weil es eben keine ist. Und Raven soll mal sagen, wo er aus dem Nichts die DFM für die "abgeleitete" Form her hat.

[xaromz]

Hallo,

ich habe es zwar unter Delphi 2006 noch nicht hinbekommen, aber unter Delphi 7 konnte ich eine eigene Ableitung unter Neu->Delphi-Form unterbringen. Das hatte ich mir damals von den TntUnicode-Controls abgeschaut.

Gruß
xaromz

[rawsoul]

Die Objektablage ist so ziemlich das, was ich mir vorgestellt hatte Hätte man auch selbst drauf kommen können ...

Danke an alle! =D

[RavenIV]

Zitat von Hansa:

Weil es eben keine ist. Und Raven soll mal sagen, wo er aus dem Nichts die DFM für die "abgeleitete" Form her hat.

Oh Mann, ist das so schwer zu kapieren?
Oder hab ich den Chinesischen Tastaturtreiber aktiviert?

Ich mache:
Datei -> Neu -> Weitere -> Vererbbare Elemente -> FoMasterForm -> Vererben ist angehakt -> OK
Dann bekomme ich ein neues Form, das von TMasterForm abgeleitet ist.

Muss ich erst ein Video drehen, oder ist das nun klar?