Discussion :

[melles]

Mon but est simplement de pouvoir bien dimensionner deux GroupBox dans une form. J'ai donc mis le bout de code suivant dans la procedure OnResize de la form :

Code :

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

1
2
3
4
groupbox1.Align:= altop;
groupbox2.Align:= alclient;
GroupBox1.Height:= form1.height div 2;
groupbox2.Height:= GroupBox1.Height;

Seulement ça ne fonctionne pas! C'est l'alignement 'AlTop' et 'AlClient' qui font tout foirer


Un

Code :

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

1
2
3
showmessage (inttostr(form1.height) + '  ' + 
inttostr(groupbox1.height) + '  ' +
inttostr(groupbox2.height));

Me donne

Code :

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

756  378  338

Je ne comprends pas trop pourquoi!
Une bonne idée ?

Thx in advance

[Yurck]

Sans doute devrais tu utiliser ClientHeight
et essayer ceci

Code :

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

1
2
3
4
 
  groupbox1.Align:= altop;
  GroupBox1.Height:= form1.ClientHeight div 2;
  groupbox2.Align:= alclient;

[Archimède]

:

Code :

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

1
2
3
4
groupbox1.Align:= altop;
groupbox2.Align:= alclient;
GroupBox1.Height:= form1.height div 2;
groupbox2.Height:= GroupBox1.Height;

la groupbox2 prend la surface client de la fiche
groupbox1 et groupbox2 doivent avoir le même hauteur height/2 de la fiche
ça na peut pas coller !
groupbox2 ne peut pas avoir à la fois clientheight et height div 2

[CapJack]

Et puis les propriétés Align n'ont pas à être définies dans un OnResize. C'est tout à fait maladroit, Align se définit une fois pour toutes, à la conception.

[Cl@udius]

Salut

Définis directement alTop et alClient à la conception via l'inspecteur d'objet (ou une fois pour toute à la création des GroupBox), puis ceci suffit dans le OnResize:

Code :

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

GroupBox1.Height:= Self.ClientHeight div 2;

[edit]
Waoou, multi grillé sur le coup !

@+ Claudius

[Yurck]

Waoou, multi grillé sur le coup !
@+ Claudius

+1 Ouaip mais le seul a avoir vraiment bon et tout dit en peu de ligne.

[melles]

En fait, je l'avais fais dés la conception comme vous dites mais ça plentait... J'ai donc fini par vouloir savoir ou etait le problème d'ou le fait d'avoir mis ce code dans la procedure "OnResize" et utiliser le pas à pas :
C'est le "AlClient" qui gene...

J'essaye vos proposition...