Discussion :

[Jipété]

(re-)Bonjour,

la semaine commence mal :



à gauche le mode design où l'on voit bien en gris moyen un TPanel classique posé sur le gris clair du fond de fiche (les deux bandes clCream sont des TPanels, respectivement alTop et alBottom, r-à-s) ;
au milieu en exécution le TPanel est passé Align:=alClient, tel que le montre le code à droite.

Mais le gag c'est les 2 TEdit en bas qui affichent la hauteur du TPanel avant puis après l'alignement et on voit bien que si le TPanel a bien graphiquement réagi à la demande d'alignement, le second TEdit affiche une valeur fausse, malgré deux demandes de mise à jour.
Une autre à la place des deux, Form1.Update;, a le même comportement inefficace.

Que faire pour qu'un code aussi simple daigne tomber en marche ?
Parce que j'ai besoin de la vraie hauteur du TPanel pour y poser ensuite des choses et les y aligner correctement.

Question subsidiaire : comment un comportement aussi farfelu est-il possible ?

Le gag, c'est que si je rajoute ça :

Code :

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

1
2
3
procedure TForm1.FormActivate(Sender: TObject);
begin
  Caption:=inttostr(pnlContainer.Height);

la valeur est bonne !

Mais ça ne m'arrange pas du tout de passer la création des composants dans FormActivate…
Une idée ?
Merci,

[Lung]

Le pb ne serait pas que l'ordre de changement d'alignement prend plus de temps (ou est légèrement différée) ?
Ce qui fait qu'à la fin de ton FormCreate, le changement n'est pas encore fait, comme le voit Edit2.
Par contre, après le Show ou Activate, c'est fait. Donc, l'affichage est bon.

[Jipété]

Le pb ne serait pas que l'ordre de changement d'alignement prend plus de temps (ou est légèrement différée) ?
Ce qui fait qu'à la fin de ton FormCreate, le changement n'est pas encore fait, comme le voit Edit2.

Sans doute, mais je pensais, là aussi naïvement, que si on avait besoin de la valeur, par exemple avec la demande d'affichage dans le TEdit, le système se speederait de mettre les data à jour.

Résultat des courses : un bout de code dupliqué, de FormCreate vers FormResize, pas droit à l'erreur, là !

[BeanzMaster]

Salut,
j'avais eu un problème similaire. Le truc c'est que le formCreate est appelé lors de la création de la form. Effectivement les valeurs ne sont pas mise a jour lorsque tu définis la propriété align dedans.

De même que le update et que le application.processmessages ne servent à rien ici car le processus de création de ta form principale n'ai pas finie. L'affichage n'est pas encore effectué.

Les données sont mises à jour en 1er lors du onResize, puis le OnShow (ou l'inverse, je ne me souviens plus de l'ordre exacte), puis le onActivate si je me souvient bien. Le mieux est de placer ton panel1.align et/ou Edit2.text:=inttostr(pnlContainer.Height); dans le onShow ou onActivate

A+

Jérôme

[Jipété]

Yep !

(pas au point, le suivi en temps réel des réponses dans le forum : il a dû y a voir une modif qqpart et maintenant ça fonctionne mal, d'où mon retard à répondre…)

Les données sont mises à jour en 1er lors du onResize, puis le OnShow (ou l'inverse, je ne me souviens plus de l'ordre exacte), puis le onActivate si je me souvient bien. Le mieux est de placer ton panel1.align et/ou Edit2.text:=inttostr(pnlContainer.Height); dans le onShow ou onActivate.

Pour l'ordre :

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
20
21
22
23
24
procedure TForm1.FormCreate(Sender: TObject);// 1
begin
  Memo1.Lines.Add('create');
end;
 
procedure TForm1.FormResize(Sender: TObject);// 2
begin
  Memo1.Lines.Add('resize');
end;
 
procedure TForm1.FormShow(Sender: TObject);// 3
begin
  Memo1.Lines.Add('show');
end;
 
procedure TForm1.FormActivate(Sender: TObject);// 4
begin
  Memo1.Lines.Add('activate');
end;
 
procedure TForm1.FormPaint(Sender: TObject); // 5
begin
  Memo1.Lines.Add('paint');
end;

et ça a donné ça dans le TMemo :

Code :

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

1
2
3
4
5
6
7
create
resize
show
activate
paint
paint
...

avec gtk2.