Form Type ändern

[Larsi]

Hi,

also ich benutze die Carbon Copy- Looks Like Mac Os X Komponenten für meinen Media Player. Eingebunden wird das Mac Style Form indem man bei

Delphi-Quellcode:

type
Form1 = class(TccForm)

reinschreibt und in die uses oben ccform einfügt.


Meine Frage ist jetzt ob es irgenwie möglich ist in der laufenden Anwendung das Design wieder zu entfernen. Logischerweise klapp folgendes in einem Button nicht :) :

Delphi-Quellcode:

type
Form1 = class(TForm)

Weiß einer ob das geht oder muss ich zwei Exe Dateien anbieten und dann umschalten obwohl ich das eigentlich nicht will?

[mkinzler]

Objekt freigeben und neu erstellen.

[Larsi]

Wie geht das? Also Form1.Free; und dann?

[DeddyH]

Du könntest auch die Komponenten um eine Eigenschaft "Enabled" erweitern. Oder einfach eine andere Skinengine verwenden, wo das geht.

[Larsi]

Und wie kann ich das Form jetzt neu erstellen?

[mkinzler]

Delphi-Quellcode:

<Objekt> := <Klasse>.Create(<Owner>, <weitere Params>);

[DeddyH]

Könnte aber Probleme geben, wenn er sein Mainform vorher releasen muss.

[mkinzler]

Dann müsste er halt eine unsichtbare Dummy-Mainform verwenden.
War auch nicht als Musterlösung, sondern als Denkanstoss gedacht. Obwohl ich bezweifele, das er einen solchen bei ihm auslöst.
Man sollte das Ganze sowieso anders lösen.

[DeddyH]

Zitat:

Zitat von mkinzler

Man sollte das Ganze sowieso anders lösen.

Seh ich auch so.

[Larsi]

Aber wie soll ich das denn um ein Enabled erweitern? Ist doch nichtmal eine Komponente oder?

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