Déplacer un Label sur un PanelRésolu

Question

Bonsoir les amis 

Je n'arrive pas à déplacer un Label sur un Panel  Si si c'est bien le cas ... en sachant que la création du label fut antérieur a celle du Panel, comment doit-je procéder ? (Je peux évidement recréer le label en question et le repositionner au dessus du Panel, mais comme y en a beaucoup sur mon projet je préférerais trouver une solution beaucoup moins invasive ...)   


Merci :)

fbalien · Accepted Answer

Bonjour

une petite methode rapide
1 vous selectionnez vos labels
2 Vous coupez (ctrl + X)
3 vous sélectionnez le panel
4 vous collez (ctrl + V)
5 il n'y a plus qu'a réorganiser

A+

Aklissj5 · Answer

J'ai utilisé un shape à la place (tout aussi utile)

La question précédente tiens toujours

dubois77 · Answer

Salut
tu peux essayer par programmation dans form1Create :
label1.parent := panel1;

Dubois77

beckerich · Answer

bonjour,

si tu travailles avec delphi xe et supérieur, tu peux modifier le parent d'un composant visuellement en le déplaçant dans la fenêtre structure (maj+alt+f11) ; sinon, il faut ouvrir le fichier .dfm de ta form et le modifier manuellement. attention, ça peut être délicat. Mieux vaut modifier composant par composant si tu n'est pas certain de ce que tu fais : clic droit sur ta fiche, voir comme texte, modifier, clic droit, voir comme fiche.

ex : un tbutton ayant comme parent un tpanel


object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 281
  ClientWidth = 305
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object Panel1: TPanel
    Left = 24
    Top = 32
    Width = 257
    Height = 177
    Caption = 'Panel1'
    TabOrder = 0
    object Button1: TButton
      Left = 88
      Top = 80
      Width = 75
      Height = 25
      Caption = 'Button1'
      TabOrder = 0
    end
  end
end


pour que le parent du button1 soit form1 :

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 281
  ClientWidth = 305
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object Panel1: TPanel
    Left = 24
    Top = 32
    Width = 257
    Height = 177
    Caption = 'Panel1'
    TabOrder = 0
  end
  object Button1: TButton
    Left = 88
    Top = 80
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
  end
end

korgis · Answer

'jour,

"J'ai utilisé un shape à la place"
A la place du TPanel, tu veux dire ?
Un TPanel ne descend pas de TWinControl et ne peut être Parent d'un autre composant.

Pour en revenir au TPanel...
L'idée de Dubois est intéressante, mais si tu as plus de 200 Label, tu vas un peu galérer.
Sinon, si le Panel occupe exactement l'emplacement du Form et fait la même dimension, j'opterais plutôt pour la solution de fbalien.

Sinon, avec un Panel reprenant les dimensions du Form, tu peux utiliser ce code dans OnCreate du Form :

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  FoundLeftPos, FoundTopPos: Integer;
begin
  with Form1 do
  begin
    for i := 0 to ComponentCount - 1 do
    begin
      if Components[i] is TLabel then
      begin
        with TLabel(Components[i]) do
        begin
          FoundLeftPos := Left;
          FoundTopPos := Top;
          Parent := Shape1;
          Left := FoundLeftPos;
          Top := FoundTopPos;
        end;
      end;
    end;
  end;
end;

Les Labels se retrouvent ainsi dans le Panel au même emplacement qu'ils occupaient originellement dans le Form.

korgis · Answer

Correction de mon code précédent.

En fait, il vaut mieux lister directement les controls possédés par le Form :

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  FoundLeftPos, FoundTopPos: Integer;
begin
  for i := ControlCount - 1 downto 0 do   // <- attention au sens !
    if Controls[i] is TLabel then
      with Controls[i] do
      begin
        FoundLeftPos := Left;
        FoundTopPos := Top;
        Parent := Panel1;
        Left := FoundLeftPos;
        Top := FoundTopPos;
      end;
end;

C'est plus zouli.

korgis · Answer

On peut aussi écrire une procedure plus souple d'emploi.
Cette procedure repositionne également les Controls dans le cas où le nouveau Parent n'a pas les mêmes dimensions que le précédent.

type
  TControlClass = class of TControl;

procedure ModifyParentAndAlign(OldParent, NewParent: TWinControl; TypeOfClass: TControlClass);
var
  i: Integer;
  FoundLeftPos, FoundTopPos: Integer;
begin
  with OldParent do
    for i := ControlCount - 1 downto 0 do   // <- ControlCount diminue !
      if Controls[i] is TypeOfClass then
        with Controls[i] do
        begin
          FoundLeftPos := Left;
          FoundTopPos := Top;
          Parent := NewParent;
          Left := Trunc(FoundLeftPos * (NewParent.Width / OldParent.Width));
          Top := Trunc(FoundTopPos *(NewParent.Height / OldParent.Height));
        end;
end;

On peu s'amuser comme un fou (enfin, je parle pour moi) en testant ainsi :
- 1 Panel déposé sur le Form, de dimension inférieure (exprès, pour le test...)
- quelques Labels dispersés de-ci de-là un peu n'importe où sur le Form (qui est donc leur Papa... heu leur 'Parent',
- 1 Button,
- 1 Button (ça en fait 2 au total).

Et on remplit les évènement OnClick avec le code :

procedure TForm1.Button1Click(Sender: TObject);
begin
  ModifyParentAndAlign(Form1, Panel1, TLabel);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ModifyParentAndAlign(Panel1, Form1, TLabel);
end;

Voilà. On clique alternativement sur l'un, puis sur l'autre. Ca distrait un moment...

On peut bien sûr varier les plaisirs en introduisant d'autres Controls sur la Fiche et en filtrant différemment, ou passer plusieurs Controls de type différent dans une procedure modifiée utilisant un array of TControlClass...

Avec Delphi, tout devient possible...

Aklissj5 · Answer

Merci pour vos réponses 

La solution qui conviens le plus au grand feneant que je suis est sans doutes celle de fbalien lol

Mais en grand curieux également j'ai aussi testé les méthodes évoquées par dubois et beckerich.
Kogris ton code est également très intéressant (je me perd un peu avec les "controls" il faut dire que je n'ai pas beaucoup eu l'occasion de m'interesser au propriétés du TPanel  lol ça viendras )petit blem par contre quand je l'ai testé le label n'apparaît pas à l&#8217;exécution , et oui j'ai bien utilisé un shape à la place du panel, cela devais juste servir de toile de fond pour un certain nombre de labels (un peu comme un écran), je me rend compte que j'aurais du avoir l'idée d'utiliser un chape dès le départ ^^' malgré cela cette petite erreur de choix fut des plus instructive 

Un grand merci à vous tous

Déplacer un Label sur un Panel

8 réponses

Votre réponse

Discussions similaires