Discussion :

[Blaede]

Yop yop,

Voici mon petit problème. Mon programme amène la création dynamique d'un certain nombre X de fenêtres (X dépendant des choix de l'utilisateur) et j'aurais aimé trouver un moyen de mettre un composant sur ces fiches (les fenêtres en question) qui reprendrait la liste des fiches et permettrait à l'aide d'un simple click sur le nom de la fiche de passer d'une fiche à l'autre.

Un peu plus de détails :

mon programme démarre avec une fiche A qui comporte deux listbox. Chaque listbox contient une série de noms de personne. Lorsque l'on choisit une personne dans la listbox de gauche et une personne dans la listbox de droite, cela génère la création d'une nouvelle fiche B, puis C, etc. Sur ces fiches nouvellement créées j'aimerais donc déposer un composant (mais lequel) qui reprendrait la liste de toutes les fiches (et qui se mettent à jour automatiquement lorsqu'une nouvelle fiche est crée ou qu'une fiche est fermée) et qui me permettrait de passer d'une fiche à l'autre en clickant sur le nom de celle qui m'intéresse.

Est-ce faisable en Delphi ? Si oui, auriez-vous une piste à me suggérer ?

Mille mercis

[Qwazerty]

SAlut
Voila peut etre un debut de reponse a ton probleme
http://www.developpez.net/forums/arc.../t-249728.html
A++
Qwaz

[Pedro]

Salut
Voila comment je verrais ton problème:
Tu crées une liste (par exemple: TListBox)
Lorsque tu crées une nouvelle TForm, ajoute un item dans ta ListBox en utilisant AddObject de cette façon:

Code :

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

1
2
3
 
MaForm := TMaForm.Create(Application);
ListBox1.Items.AddObject('MaForm' + IntToStr(ListBox1.Items.Count + 1), MaForm);

De cette façon, chaque item de la liste est associé à sa fiche correspondante.
Ensuite, dans le OnClick de la TListBox:

Code :

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

1
2
3
 
if ListBox1.ItemIndex > -1 then
  TForm(ListBox1.Items.Objects[ListBox1.ItemIndex]).SetFocus;//Ou BringToFront

Code non testé

[Blaede]

Hello Pedro,

merci beaucoup pour ta réponse, c'était une excellente idée.
Je ne connaissais pas la méthode AddObject et j'ai donc appris
quelque chose d'important. Malheureusement, le code ne
fonctionne pas car il ajoute un Item dans la listbox à la création
de la fiche (à savoir la fiche nouvellement créée) mais il ne rajoute
rien lors de la création des fiches ultérieures. Si j'ai par exemple
trois fiches qui sont créées, elles ont chacune un seul enregistrement
dans la listbox, celui qui leur est rattaché.

Peut-être y a t-il moyen de continuer sur cette piste, je ne sais pas

[Qwazerty]

SAlut
Je me permet de completer, je ne connaissais pas non plus l'utilisation de AddObject ... c'est super pratique.

J'ai donc modifié un peu le code, le voila

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
procedure TForm1.Button1Click(Sender: TObject);
Var MaForm : TForm1;
    I : Integer;
begin
     If Tbutton(Sender) = Button1 then
     begin
          If (Tbutton(Sender).Parent <> Form1) Then
          begin //On est pas sur Form1
               form1.Button1.OnClick(Form1.Button1);
          end
          else
          begin //On est sur Form1
               MaForm := TForm1.Create(Form1);
               Form1.ListBox1.Items.AddObject('MaForm' + IntToStr(ListBox1.Items.Count + 1), MaForm);
               //MaForm.ListBox1.Items := Form1.ListBox1.Items;
               For I := 0 To Form1.ListBox1.Count-1 Do
               begin
                    TForm1(ListBox1.Items.Objects[I]).ListBox1.Items := Form1.ListBox1.Items;
               end;
          end;
     end;
end;
 
procedure TForm1.ListBox1Click(Sender: TObject);
begin
if ListBox1.ItemIndex > -1 then
begin
     TForm(ListBox1.Items.Objects[ListBox1.ItemIndex]).Visible := true;
     TForm(ListBox1.Items.Objects[ListBox1.ItemIndex]).SetFocus;//Ou BringToFront
end;
end;

Je pense que le resultat est ce que tu recherches.
A++
Qwaz

[Qwazerty]

SAlut
Je met donc le message que tu m'as transmis en MP

Je ne comprends pas bien ce que tu fais malheureusement, je ne suis pas sur d'avoir
bien expliqué ce que je souhaitais réaliser.

La fiche de départ n'est pas du même type que
mes fiches générées dynamiquement par la suite.
Il me semble que dans ton code, toutes les fiches
sont de même type.

En fait j'ai une fiche de départ à partir de laquelle
l'utilisateur crée une nouvelle fiche complètement
différente, chaque fois qu'il presse un certain bouton...

Merci beaucoup pour ta réponse quoi qu'il en soit !

Je n'est pas trop le temps de regarder se matin je vais au taff, mais a priori je dirais qu'il faut que tu crée un type de form disons TFormClient et au moment de créer une nouvelle form tu fait comme ca

Code :

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

                MaForm := TForm1.Create(Form1);

Attention d'autre element du code vont chager je vais essayer de le faire avant de partir mais je ne te promet rien (le code va etre beacoup simplifié je pense)
A++
Qwaz

Edit

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
procedure TForm1.Button1Click(Sender: TObject);
Var MaForm : TForm1;
    I : Integer;
begin
 
     MaForm := TFormClient.Create(Form1);
ListBox1.Items.AddObject('MaForm' + IntToStr(ListBox1.Items.Count + 1), MaForm);
               end;
 
procedure TForm1.ListBox1Click(Sender: TObject);
begin
if ListBox1.ItemIndex > -1 then
begin
     TForm(ListBox1.Items.Objects[ListBox1.ItemIndex]).Visible := true;
     TForm(ListBox1.Items.Objects[ListBox1.ItemIndex]).SetFocus;//Ou BringToFront
end;
end;

En modfiant le code comme ca ca devrait marcher ... on revient quasiement au code d'origine donné par Pedro... désolé je n'avais pas compris ce que tu voulais exactement

A++
Qwaz