Discussion :

[netsliver]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[diogene]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
...
F_Form1 = new TF_Form1(Application);
...

Par contre, le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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" )
....