Création de variable dynamique

Bonjour à tous,

Je travaille sur un projet MDI avec un TTreeView qui permet d'ouvrir différents TForm selon les entrées du TTreeView.

Sur la TForm principale pour le moment j'ai un if...else if... qui selon l'entrée sélectionnée dans la liste ouvre la TForm, le projet se développant de plus en plus je cherche à trouver un moyen de contourner le traitement if...else if... par une fonction générique qui créérait et ouvrirait une instance d'une TForm passé en paramètres.

Actuellement nous avons ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

if( TV_Saisie->Selected->Text == "Form1" ) { if(Application->FindComponent("F_Form1") == NULL) { F_Form1 = new TF_Form1(Application); } else { if (F_Form1->WindowState == wsMinimized) F_Form1->WindowState = wsNormal; F_Form1->BringToFront(); } } else if( TV_Saisie->Selected->Text == "Form2" ) { if(Application->FindComponent("F_Form2") == NULL) { F_Form2 = new TF_Form2(Application); } else { if (F_Form2->WindowState == wsMinimized) F_Form2->WindowState = wsNormal; F_Form2->BringToFront(); } }

---

On voudrais faire quelque chose du style :

F_Form = OpenForm("TF_Form2");

qui ferais le traitement du dessus au lieu de dupliquer le code pour chaque entrée du TTreeView...

Si quelqu'un a une solution, elle est la bienvenue.

Merci d'avance.

Citation:

---

On voudrais faire quelque chose du style :
F_Form = OpenForm("TF_Form2");

---

Aussi simple me semble difficile à cause du problème de l'éventuelle création de la TForm

Code:

---

1 2 3

... F_Form1 = new TF_Form1(Application); ...

---

Par contre, le code

Code:

---

1 2 3

if (F_Form1->WindowState == wsMinimized) F_Form1->WindowState = wsNormal; F_Form1->BringToFront();

---

peut facilement se regrouper puisque toutes dérivent de TForm.

Code:

---

1 2 3 4 5 6

void OpenForm(TForm * form) { if (form->WindowState == wsMinimized) form->WindowState = wsNormal; form->BringToFront(); }

---

On aurait alors qq chose du genre

Code:

---

1 2 3 4 5 6

if( TV_Saisie->Selected->Text == "Form1" ) if(Application->FindComponent("F_Form1") == NULL) F_Form1 = new TF_Form1(Application); else OpenForm( F_Form1); else if( TV_Saisie->Selected->Text == "Form2" ) ....

---