Form Type ändern

[mkinzler]

Eine Form ist auch eine Komponente

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    FSkinEnabled: Boolean;
  public
    constructor Create( AOwner: TComponent); overload; override;
    constructor Create( AOwner: TComponent; EnableSkin: Boolean); overload;
  end;
  
var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor TForm1.Create(AOwner: TComponent);
begin
    if Self.FSkinEnabled then
        Self := TccForm.Create()
    else
        inherited Create( AOwner);
end;

constructor TForm1.Create(AOwner: TComponent; EnableSkin: Boolean);
begin
    Self.FSkinEnabled := EnableSkin;
    Self.Create( AOwner);
end;

Nicht getestet, sollte aber funktionieren