Bonjour,

J'ai 3 forms : TFmBienvenue, TFmCharge, TFmTest qui déscende d'une forme TFmAncetre.
J'ai également un type TFormType déclarée comme suit :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
Type
  TFormType = (ftNone, ftBienvenue, ftCharge, ftTest);
J'aimerais affectée dans le constructeur de TFmAncestre le bon type de form automatiquement en fonction de ClassName.

PS : Actuellement, j'ai simplifié le problème de mes 3 forms mais il y en aura X.

Je voudrais eviter de faire:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
if ClassName = 'TFmBienvenue' then formtype = ftBienvenue
else if ClassName = 'TFmCharge' then formtype = ftCharge
else if ClassName = 'TFmTest' then formtype = ftTest;
mais plutot faire :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
formtype =JESAISPASQUOI('ft' + (Copy(ClassName, 4, length(ClassNAme) - 3)));