centrage dynamique dans une procédure

**JYH** · 14/08/2013, 13h53

Bonjour,

j'essaye d'écrire une procédure pour centrer dynamiquement mes composants en cas de resize, un truc du genre :

Code :

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

1
2
3
4
procedure AligneV(pere ;fils:TObject);
begin
  (fils as TComponent).top:= ((pere as tcomponent).height-(fils as TComponent).height) mod 2;
end;

et la même pour aligneH...

note : le père peut être une form, un panel ou autre chose et le fils un label, une grille, un edit ...

et forcément ça marche pas sinon je ne serais pas a vous expliquer mon problème.

le must serait de tout mettre les familles dans une table SQL par leur nom (peres,fils,alignement) mais je ne crois pas cela possible.

merci déjà de me lire et de vos réponses avisées s'il y en a.

**Andnotor** · 14/08/2013, 16h14

Avec mod 2, tu ne peux avoir qu'une valeur entre 0 et 1

Un contrôle connait sont parent. Il n'y a pas besoin de le spécifier.

Code :

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

1
2
3
4
5
6
7
8
procedure DoAlignCenter(aControl :TControl);
begin
  with aControl do
  begin
    Left := (Parent.ClientWidth -Width) div 2;
    Top  := (Parent.ClientHeight -Height) div 2;
  end;
end;