Discussion :

[xenos]

Salut,

je développe un soft avec Delphi 2006 sous WinXP.

J'ai Cinq panels nommés :
- Panel_1
- Panel_2
- Panel_3
- Panel_4
- Panel_5

Ils sont dans un ScrollBox et ont tous la propriété Align := alTop. Panel_1 étant le panel le plus haut et les autres le suivant de façon croissante.

J'utilise le code suivant pour les cacher :

Code :

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

1
2
3
Panel_1.Visible := False;
[...]
Panel_5.Visible := False;

Puis je les rend à nouveau visible et c'est LÀ que ce situe l'énigme !!!

En effet, en les rendant à nouveau visible, ils se retrouvent dans le désordre, MAIS TOUJOURS le même désordre !!!
- Panel_2
- Panel_4
- Panel_1
- Panel_5
- Panel_3

Pourtant :
- alphabétiquement,
- suivant le TabOrder,
- ayant tous (panels) la même configuration,
- ...
... ils ne devraient pas se trouver dans cet ordre !!!

Franchement j'y perds mon latin !!! ... encore aurait il fallu que j'en connaisse un traitre mot ...

Si un Sherlock Holmes lisait cette énigme, j'attends avec impatience la conclusion de son enquête !

[slimjoe]

Salut!

As-tu essayé de les remettre visible dans l'ordre du haut vers le bas ? (j'imagine que oui )

Et si tu mets des Showmessage entre les visible := true pour stopper l'exécution, est-ce que les panels s'emboîtent correctement ou si à un moment y'en a un qui se place entre deux autres ?

Merci!

[xenos]

As-tu essayé de les remettre visible dans l'ordre du haut vers le bas ? (j'imagine que oui )

En effet, c'est par là que j'ai commencé.

Et si tu mets des Showmessage entre les visible := true pour stopper l'exécution, est-ce que les panels s'emboîtent correctement ou si à un moment y'en a un qui se place entre deux autres ?

J'ai mis des Application.ProcessMessage entre chaque panel que je rend visible ... mais ça les met toujours dans le désordre ...

Cependant, j'ai déjà pu remarquer que chaque form attribuait un numéro unique à chacun de ses composants ... y a t'il moyen de changer ce numéro, car c'est peut-être d'après cet ordre que se placent les panels.

[maamar1979]

tu affiche tes pannel comme ca :

Code :

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

1
2
3
4
panel1.Visible:=true
panel1.Visible:=true
...
panel5.Visible:=true

puis tu les reordonne

Code :

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

1
2
3
panel5.SendToBack;
panel4.SendToBack;
...

c'est tt. salam

[xenos]

tu affiche tes pannel comme ca :

Code :

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

1
2
3
4
panel1.Visible:=true
panel1.Visible:=true
...
panel5.Visible:=true

puis tu les reordonne

Code :

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

1
2
3
panel5.SendToBack;
panel4.SendToBack;
...

c'est tt. salam

Ca ne fonctionne pas ... ça me les met toujours dans le désordre ...

[tourlourou]

alTop : ils n'essayeraient pas tous d'être en haut ?

essaye alNone ?

[slimjoe]

Salut!

Et si tu mets des Showmessage entre les visible := true pour stopper l'exécution, est-ce que les panels s'emboîtent correctement ou si à un moment y'en a un qui se place entre deux autres ?

J'ai mis des Application.ProcessMessage entre chaque panel que je rend visible ... mais ça les met toujours dans le désordre ...

Essaye de mettre un showmessage entre les visible := true pour voir si c'est un problème lié au rafraîchissement ou un truc du genre. Application.ProcessMessages ne règlera pas un problème lié au WS_PAINT de la fiche.

Aussi, peut-être pourrais-tu jouer avec la propriété Top des panels une fois qu'ils sont visibles. Il ne s'agit pas de les positionner vraiment mais de les séparer de façon à ce qu'ils s'emboîtent correctement avec le Align.

Code :

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

1
2
3
4
5
Panel1.Top := 0;
Panel2.Top := (self.height div 5);
Panel3.Top := (self.height div 5) * 2;
Panel4.Top := (self.height div 5) * 3;
Panel5.Top := (self.height div 5) * 4;

[OutOfRange]

Bonjour
Pas facile
J'ai fait plusieurs tentatives
On dirait que la position des panels est parfois anarchique au moment du réaffichage... sans qu'on sache pourquoi

As-tu essayé ça ?

Code :

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

1
2
for i:=0 to scrollbox1.ControlCount-1 do
    scrollbox1.Controls[i].Visible:=true;

Des fois que l'ordre de la boucle for to influerait sur le résultat

[edam]

essye de les rendre invisible dans le sens croisssant et les remetre dans le sans decroissant

[Pascal Jankowski]

Je viens de faire le test à partir d'un nouveau projet et je n'ai pas remarqué le comportement que tu décris.

Manipulation:

1- Création d'un nouveau projet
2- Ajout d'un TScollBox sur la fiche principale
3- Ajout des Tpanel dans l'odre 1,..,5 en veillant à ajouter align = onTop
4- Ajout de deux boutons
---> le premier destiné à rendre invisible les panels dont le code est le suivant :

Code :

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

1
2
3
4
5
6
 
  panel5.Visible := false;
  panel4.Visible := false;
  panel3.Visible := false;
  panel2.Visible := false;
  panel1.Visible := false;

---> le second destiné à rendre visible les panels

Code :

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

1
2
3
4
5
6
 
  panel1.Visible := true;
  panel2.Visible := true;
  panel3.Visible := true;
  panel4.Visible := true;
  panel5.Visible := true;

Vérifie, l'odre dans lequel tu as créé et ajouté tes panels.
==> Pour cela, va voir dans le dfm.

Voici ici une partie du contenu du dfm de mon projet 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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
object Form1: TForm1
  Left = 177
  Top = 229
  Width = 870
  Height = 640
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object ScrollBox1: TScrollBox
    Left = 24
    Top = 24
    Width = 449
    Height = 289
    TabOrder = 0
    object Panel1: TPanel
  Left = 0
      Top = 0
      Width = 445
      Height = 33
      Align = alTop
      Caption = 'Panel1'
      TabOrder = 0
    end
    object Panel2: TPanel
  Left = 0
      Top = 33
      Width = 445
      Height = 41
      Align = alTop
      Caption = 'Panel2'
      TabOrder = 1
    end
    object Panel3: TPanel
  Left = 0
      Top = 74
      Width = 445
      Height = 41
      Align = alTop
      Caption = 'Panel3'
      TabOrder = 2
    end
    object Panel4: TPanel
      Left = 0
      Top = 115
      Width = 445
      Height = 46
      Align = alTop
      Caption = 'Panel4'
      TabOrder = 3
    end
    object Panel5: TPanel
  Left = 0
      Top = 161
      Width = 445
      Height = 41
      Align = alTop
      Caption = 'Panel5'
      TabOrder = 4
    end
  end
....

Vérifie donc si l'ordre dans ton dfm correspond à celui du code ci-dessus

Cordialement

[xenos]

Merci à tous pour votre aide !!!

En combinant vos suggestions j'y suis arrivé !!!

Vérifie, l'odre dans lequel tu as créé et ajouté tes panels.
==> Pour cela, va voir dans le dfm.

En effet, mes panels étaient dans le désordre, je les ai donc mis en ordre croissant. Mais ce n'était pas suffisant.

essye de les rendre invisible dans le sens croisssant et les remetre dans le sans decroissant

Je me suis insipiré de ce que tu as dis, j'ai donc rendu invisible en commancant par la fin et rendu visible en commencant par le début.

Après cette dernière manipulation, tout à correctement fonctionné.

[xenos]

As-tu essayé ça ?

Code :

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

1
2
for i:=0 to scrollbox1.ControlCount-1 do
    scrollbox1.Controls[i].Visible:=true;

Non, je n'ai pas pu le mettre en oeuvre étant donné qu'il y a d'autres panels en plus des 5 sur le ScrollBox.

[Pascal Jankowski]

En effet, mes panels étaient dans le désordre, je les ai donc mis en ordre croissant. Mais ce n'était pas suffisant.

Cela fonctionne également avec ce que j'ai indiqué dans mon message :

Ajout de deux boutons
---> le premier destiné à rendre invisible les panels dont le code est le suivant :

Code :

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

1
2
3
4
5
6
 
  panel5.Visible := false;  
  panel4.Visible := false;  
  panel3.Visible := false;  
  panel2.Visible := false;  
  panel1.Visible := false;

---> le second destiné à rendre visible les panels

Code :

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

1
2
3
4
5
6
 
  panel1.Visible := true;  
  panel2.Visible := true;  
  panel3.Visible := true;  
  panel4.Visible := true;  
  panel5.Visible := true;