Enchainement de Frames

**Vilukariok** · 21/01/2009, 10h54

Je suis en train de réaliser un programme qui fait appel a différentes frames les unes après les autres.

Mais voila, j’aimerais que l’enchaînement d’une frame puisse aboutir sur un choix entre 2 frames (un peu comme un arbre a deux branches).
Pour l’instant je n’ai rien trouvé d’autre que :
- déclarer une variable dans ma frame principal
- lui assigné une valeur dans la frame de choix
- faire un test de condition pour savoir quel « chemin le programme doit-il emprunté »

N’y a-t-il pas un moyen plus pratique pour y arriver ?

**Paul TOTH** · 21/01/2009, 11h06

Envoyé par Vilukariok

Je suis en train de réaliser un programme qui fait appel a différentes frames les unes après les autres.

Mais voila, j’aimerais que l’enchaînement d’une frame puisse aboutir sur un choix entre 2 frames (un peu comme un arbre a deux branches).
Pour l’instant je n’ai rien trouvé d’autre que :
- déclarer une variable dans ma frame principal
- lui assigné une valeur dans la frame de choix
- faire un test de condition pour savoir quel « chemin le programme doit-il emprunté »

N’y a-t-il pas un moyen plus pratique pour y arriver ?

je n'ai pas bien compris ton problème...

mais il me fait penser à un Wizard que j'avais fait en utilisant des Frames pour chaque étape...selon les options de la frame active on accédait à une frame ou une autre en cliquant sur Next.

pour cela, j'avais une variable Step qui m'indiquait dans quelle étape je me trouvais et dans les boutons Next et Prev j'avais un CASE sur Step pour savoir où j'allais.... exemple :

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
28
29
30
31
32
33
34
 
procedure TWizard.NextClick(Sender: TObject);
begin
  case Step of
    1 : if Frame1.CheckBox1.Checked then Step := 2 else Step := 3;
   ..
  end;
end;
 
procedure TWizard.SetStep(Value :Integer);
begin
  if Step = Value then
  Exit;
  Step := Value;
  case Step of
    1 : ShowFrame(Frame1,TFrame1);
    2 : ShowFrame(Frame2,TFrame2);
    3 : ShowFrame(Frame2,TFrame2);
  end;
end;
 
procedure TWizard.ShowFrame(var Frame:TFrame; Class: TFrameClass);
begin
  if not Assigned(Frame) then
  begin
  // créer la frame
  end;
  if CurrentFrame = Frame then 
  Exit;
  if Assigned(CurrentFrame) then
  CurrentFrame.Hide;
  CurrentFrame := Frame;
  CurrentFrame.Show;
end;

**Vilukariok** · 21/01/2009, 11h51

Mais tu a tout a fait compris.

Dans mon programme je pose une question à l'utilisateur et si celui-ci me répond "oui" je vais sur une frame x et si il répond "non je vais sur une frame y.

Bon maintenant ,il me reste plus qu'a comprendre ton code

**Paul TOTH** · 21/01/2009, 12h11

Envoyé par Vilukariok

Mais tu a tout a fait compris.

Dans mon programme je pose une question à l'utilisateur et si celui-ci me répond "oui" je vais sur une frame x et si il répond "non je vais sur une frame y.

Bon maintenant ,il me reste plus qu'a comprendre ton code

ok

alors dans mon code je considère que les frames ne sont pas dans la fiche au départ...c'est ShowFrame qui va créer (si c'est pas déjà fait) la frame.

si tu les places en designtime tu peux te contenter de les rendre visible ou pas.

pour la petite histoire, j'ai fait ça dans un générateur de personnage pour un jeu style Donjons et Dragons dont on voit l'image en page 86 du livre "Delphi 7 Studio" ^^