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]

Delphi-Quellcode:

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:

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 :roll:

[DeddyH]

Schau Dir mal die Lite-Edition der AlphaControls an.