Discussion :

[Speed41]

Bonjour,

Je développe un programme qui généré des composants (TPanel et Timage) tout seul. Il les génère suivant l'ordre d'un tableau.
Donc le premier est en arrière plan et le dernier au premier plan.

Ce que je voudrais c'est que l'utilisateur puisse passer un objet soit au premier plan ou en arrière plan et cela sans devoir détruire tous les objets pour les recréer dans l'ordre voulus.

Comme l'or de la conception avec bouton droit sur un objet "Option de contrôle" "Mettre en avant plan" ou "Mettre en arrière plan"

Nota les objet génèrés automatiquement son Align:=Alnone et je ne m'occupe que des TPanel

Merci de votre aide

[az0101]

"BringToFront" et "SendToBack" semblent être appropriés.

Si jamais les panneaux sont imbriqués pour changer l'ordre ce serait en chengeant la propriété Parent, mais en deux temps d'abord Parent := Nil puis Parent := PanelVoulu.

[Speed41]

Tous les objets ont le même parent un TPanel

[Speed41]

Et quand je fait

Code :

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

(form1.components [objet_actif] as TPanel).Parent:=panel4;

Mon objet ne change pas de parent. J'ai testé avec un objet créé normalement ça marche bien

Panel4 sera un autre parent et même en lui donnant comme parent Form1 ou nil ça ne marche pas

Voici mon code de création d'objet

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.CREER_periode(y : integer);
var Panel69 : Tpanel;
begin
  Panel69:=TPanel.Create(self);
  Panel69.parent:=Panel3;
  Panel69.autosize:=false;
  Panel69.Visible:=true;
  ...

Y est la ligne du tableau contenant toutes les informations complémentaires

[Speed41]

"BringToFront" et "SendToBack" semblent être appropriés.

Ne fonctionne pas non plus avec mes objets créés dynamiquement

[Dr.Who]

un TPanel ou TScrollBox pour contenir les TImage

et les TImage directement dans le conteneur.

ensuite le BringToFront, SendToBack fonctionnera.

[Speed41]

Bonjour Dr.Who,

Je génèrent mes objets (TPanel) avec comme parent un TPanel

Code :

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

1
2
3
4
var Panel69 : Tpanel;
begin
  Panel69:=TPanel.Create(self);
  Panel69.parent:=Panel3;

qui a comme parent un TScrollBox

le code

Code :

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

(form1.components [objet_actif] as TPanel).BringToFront

ne fonctionne pas sur les Panels générés dynamiquement alors que pour ceux placés lors de conception ça fonctionne

Merci de ton aide

[Speed41]

Désolé, ça marche une erreur d'affectation (objet_actif)

Merci beaucoup