"TCustomForm" möglich?

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