Klassentyp zur Laufzeit ändern

[Carsten1234]

Hallo zusammen,

ich habe eine MainForm vom Typ TForm, deren Klasse ich gerne in Abhängigkeit vom OS beim Programmstart ändern möchte.
Bsp.:

Delphi-Quellcode:

type
  TMainForm = class(TForm)
(...)
  end;  

var
  MainForm: TMainForm;

(...)
  if (IsVista) then
<Pseudocode>
    MainForm:= TVistaForm;
</Pseudocode>

Geht das überhaupt?

Gruß, Carsten