Discussion :

[SkYsO]

Bonjour à tous,

voici la situation : j'ai une scrollbox dans laquelle je vais créer dynamiquement des Frames qui seront en alTop. Cela me permet de les disposer de façon automatique et efficacement.

Quand je redimensionne mon application en mode exécution, j'ai bien une scrollbar qui s'affiche pour le vertical si ça dépasse mais rien de rien en horizontal.

Voici le soucis, il me faut l'avantage du alTop mais il me faut aussi la scrollbar en horizontal. Je sais que le soucis vient du align car quand je passe en AlNone tout est bon.
j'ai tenté de mettre une taille mini dans les Constraints mais ça ne fait toujours pas apparaitre la scroll. J'ai aussi tenté de supprimer l'ancre droite mais rien à faire.

Avez vous une solutions qui ne m'obligerait pas à calculer la hauteur de chacun de mes composants ?
merci beaucoup

@++

[MedGIR]

Ce comportement est totalement normal, car si ton composant est aligné en haut cela veut dire que le coté droit de ta frame sera "collé" dans ton scrolbox à droite, idem pour le coté gauche, donc jamais de scrollbar horizontale...

Je pense avoir compris que tu veux créer dynamiquement plusieurs frame epilées dans un scrollbox. Je ce que tu peux faire c'est au moment de la creation de ta frame, c'est regarder la position du dernier composant crée dans ta scrollbox, et de le positionner dessous la frame deja existante. Ceci est valable seulement si dans scrollbox ne contient que des frames.

par exemple, dans l'evenement de la creation de ta frame, tu peux faire cela:

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
procedure tform1.AddFrame;
var
  FrameTop : integer;
begin
 if ScrollBox.ControlCount = 0 then
  FrameTop := 10
 else
  FrameTop := ScrollBox.Controls[ScrollBox.ControlCount-1].Top +
              ScrollBox.Controls[ScrollBox.ControlCount-1].Height + 10;
 
 with TFrame.Create(ScrollBox) do
 begin
  Name := 'Frame' + IntToStr(ScrollBox.ControlCount);
  Parent := ScrollBox;
  Top := FrameTop;
  Left := 10;
  Show;
 end;
end;

Par contre, j'ai un petit doute, je ne crois pas qu'on puisse redimensionner visuellement une frame. Par contre un form c'est certain....

J'espere t'avoir un peu aidé...

[SkYsO]

Salut et merci de ta réponse.

En effet je veux "empiler dynamiquement" mes frames et le AlTop était pas mal pour ça.
Pour ta solution c'est celle que je voulais éviter pour pouvoir garder les propriétés du altop qui permet le replacement auto de mes frames.

Mais bon je n'ai peut être pas d'autres solutions...

[SkYsO]

Quelqu'un aurait-il quand même un avis ?