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

[Larsi]

Geht nicht.

[DCC Fehler] Unit1.pas(171): E2035 Nicht genügend wirkliche Parameter

[DeddyH]

Dann erweitere doch die Komponente/Klasse oder was auch immer das ist um diese Eigenschaft, ist doch viel sinnvoller IMHO.

[mkinzler]

Self := TccForm.Create( AOwner)

[Apollonius]

Ähm, so funktionieren Konstruktoren eindeutig nicht. Self wird bereits in _ClassCreate erzeugt und Änderungen im Konstruktor werden nicht gespeichert. Dass man einem TForm1 nicht einfach ein TccForm zuweisen kann, sofern keine besondere Vererbungshierarchie vorliegt, sollte auch klar sein.

[Meflin]

Zitat von Larsi:

Geht nicht.

Du dumm.

Wenn du einen abschlatbaren Skin willst, dann verwende eine Skin Engine. Alles andere ist sowieso keine Lösung und für dich vermutlich eh nicht implementierbar

[DeddyH]

Schau Dir mal die Lite-Edition der AlphaControls an.