Delphi: procédure de programmation pour régler visuelle de la commande de composants avec align = alTop

J'ai un formulaire avec un certain nombre de panneaux, chacun de qui a Align=alTop, donc ils se comparent bien à partir du haut de la forme.

Cependant, je veux changer dynamiquement l'apparence de l'ordre de ces panneaux - je.e, les déplacer vers le haut et vers le bas. Quelle est la meilleure façon de le faire?

InformationsquelleAutor Roddy | 2009-08-11
  1. 28

    Vous pouvez facilement passer d'un alignée en haut du panneau vers le haut par l'établissement de ses Haut propriété 0. Le faire dans le sens inverse demandé de commande (panneau du bas) et vous avez terminé.

    • Parfois, si vous affectez une valeur négative, cela fonctionne mieux. Il a travaillé pour moi de cette façon.
    InformationsquelleAutor Uwe Raabe
  2. 6

    Déplacer de la même façon que vous feriez déplacer au moment de la conception avec la souris: Régler le courant du panneau Top propriété à un de moins que le Top propriété de le panneau que vous voulez être en dessous du panneau en cours. La VCL de prendre soin de tout le reste.

    Si vous devez vous déplacer de plusieurs panneaux, commencer avec BeginDeferWindowPos. Régler tous les panneaux à ce que les coordonnées que vous voulez avec DeferWindowPos, et ensuite les faire tous passer à la fois avec EndDeferWindowPos.

    • Sympa, je ne connaissais pas DeferWindowPos. Mais n'est-ce pas DisableAlign/EnableAlign plus facile?
    • avec DeferWindowPos, la fenêtre ne fait pas bouger jusqu'à ce que vous appelez EndDeferWindowPos. Si vous vous déplacez beaucoup de windows, qui permet d'éviter le scintillement que les positions de certains windows mis à jour avant les autres ont déménagé. Aussi loin que je peux dire, DisableAlign n'empêche pas les contrôles de déplacer n'importe où, juste le parent de l'alignement de l'application. Je ne peux pas juger de ce qui est mieux.
    InformationsquelleAutor Rob Kennedy
  3. 1

    Je suggère la construction d'un cadre où la dynamique de supprimer/ajouter des formes à partir de/à leur contrôle parent. En général, l'ordre de la création ou de l'extension est de l'ordre visuel, mais à partir de votre question, je comprends que vous souhaitez que la commande soit à changer durant la vie de l'application, il suffit donc de changer l'origine de la création de l'ordre ne sera pas assez.

    Afin de modifier l'ordre, essayez:

    1. Masquer les panneaux
    2. Enlever les panneaux de leur parent de contrôle
    3. Ajouter les panneaux à leur parent de contrôle dans la nouvelle commande vous souhaitez
    4. Montrer les panneaux
    InformationsquelleAutor Roee Adler
  4. 1

    À faire l'essai d'un haut-alignés TGridPanel avec une colonne et n lignes au lieu --- re-commande de haut-alignés panneaux est un peu de douleur, vraiment.

    (Note: TGridPanel est disponible en Delphi 2007 et, si je me souviens bien).

    • Bonne idée, mais mes panneaux ne sont pas placés directement sur un formulaire - ils sont sur un autre panneau, comme composant qui donne un effet de base, et la TGridPanel peaux qui. pour garder la question simple que j'ai omis de mentionner cette subtilité...
    • Ne pouvez-vous pas ensemble TGridPanel.ParentBackground à True? J'ai pensé TPanel descendants pourraient être transparente de cette façon...
    InformationsquelleAutor onnodb
  5. 1

    Si vous modifiez le haut du panneau de l'ordre de visuellement panneau de changement.

    Essayez ceci (tous les panneaux alignés altop et avec la même Hauteur):

    PANEL0

    PANEL1

    SÉANCE 2

    PANEL3

    PANEL4

    À OnClick cas de tous les panneaux ce faire:

     TPanel(Sender).Top := TPanel(Sender).Top - TPanel(Sender).Height - 2;

    Si vous cliquez sur un panneau, il se déplace vers le haut d'une position.

    C'est l'idée. Modifier le Haut de X pixels.

    En même temps, si vous faites cela:

       TPanel(Sender).Top := TPanel(Sender).Top - (TPanel(Sender).Height * 2)- 2;

    Le panneau jusqu'à 2 positions.

    AJOUTÉ: Si vous utiliser le Drag&Drop, c'événements retour à la position (X et Y); Avec la position initiale et la position finale, vous pouvez calculer la marche internationale de haut pour assigner à la commission.

    Excuse forme mon mauvais anglais.
    ce qui concerne

    InformationsquelleAutor Germán Estévez -Neftalí-
  6. 1

    J'ai utilisé le code suivant:

    procedure Show_Hide (Flag_Show : boolean);
begin
  if Flag_Show then
  begin
    with Panel_1 do begin Align := alTop; Visible := true; end;
    with Panel_2 do begin Align := alTop; Visible := true; end;
    with Panel_3 do begin Align := alTop; Visible := true; end;
    with Panel_4 do begin Align := alTop; Visible := true; end;
  end else
  begin
    with Panel_1 do begin Visible := false; Align := alNone; end;
    with Panel_2 do begin Visible := false; Align := alNone; end;
    with Panel_3 do begin Visible := false; Align := alNone; end;
    with Panel_4 do begin Visible := false; Align := alNone; end;
  end;
end;

    selon mon souhait
    Panel_1
    Panel_2
    Panel_3
    Panel_4

    InformationsquelleAutor Hristo Markow
  7. 0

    Je sais que c'est un vieux post, mais, fondamentalement, m'a aidé à - l'idée de la définition de la propriété top de zéro.
    Je ne peux pas utiliser l'idée de par programmation à définir la position de cause c'est à l'application l'utilisateur peut choisir d'afficher quelques cartes sur l'application et puis, tous les panneaux de l'enfant (parent) de la teecharts sont aligner altop.
    J'ai mis leur propriété top de 0 sur l'ordre inverse et alors juste visible true ou false en fonction de la saisie de l'utilisateur...

    Grâce.

    InformationsquelleAutor ronaldosantana
  8. -1
    panel3.Visible  := True;
panel3.Top      := 0;

panel2.Visible  := True;
panel2.Top      := 0;

panel1.Visible  := True;
panel1.Top      := 0;

    Les derniers seront les premiers.

    InformationsquelleAutor Gaive Knopf