Prob WindowState sur fenêtre cachée

Hello,

Je rencontre un sérieux problème, que ce soit avec Delphi 2005 P.E. ou Turbo Delphi.

A l'aide d'un bouton, je souhaite remettre à 0 la taille et positions de mes fenêtres, qu'elles soient visibles ou non.

J'utilise ce type de code pour chaque fenêtre :

Code:

---

1 2 3 4 5

FMain.WindowState := wsNormal; FMain.Width := FMain.Constraints.MinWidth; FMain.Height := FMain.Constraints.MinHeight; FMain.Top := (Screen.WorkAreaHeight div 2) - (FMain.Height div 2); FMain.Left := (Screen.WorkAreaWidth div 2) - (FMain.Width div 2);

---

Si les fenêtres ne sont pas maximisées tout se passe bien. Dans le cas contraire, je suis obligé d'appuyer 2 fois sur mon bouton pour que cela fonctionne.

En débug, j'observe le phénomène suivant (le N° = ligne du code) :

1 - Ok (wsNormal)
2 - WindowState reviens à wsMaximized !!

J'appuie une seconde fois sur le bouton et WindowState reste bien à wsNormal après la ligne 2.

Si je place le FMain.WindowState := wsNormal à la fin, il est mieux pris en compte (pas toujours !), par contre la position de la fenêtre est fausse !

Toujours en débug, la valeur Left est correcte après la dernière instruction ci-dessus et à l'entrée du FMain.onShow mais devient fausse à la sortie du onShow 8O

J'ai reproduit ce problème avec un projet vierge, 2 forms et 1 bouton qui cache/affiche Form2 et un 1 bouton qui lance l'init de la taille et position.

J'y comprend plus rien !!

Je me répond à moi-même, cela peut toujours servir à d'autres...

En modifiant le code de cette façon, cela fonctionne à tous les coups, c'est un peu lourd, mais ça fonctionne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var WindowPlacement : TWindowPlacement; begin WindowPlacement.length:=SizeOf(WindowPlacement); WindowPlacement.rcNormalPosition.Left := (Screen.WorkAreaWidth div 2) - (FMain.Constraints.MinWidth div 2); WindowPlacement.rcNormalPosition.Top := (Screen.WorkAreaHeight div 2) - (FMain.Constraints.MinHeight div 2); WindowPlacement.rcNormalPosition.Bottom := (WindowPlacement.rcNormalPosition.Top) + (FMain.Constraints.MinHeight); WindowPlacement.rcNormalPosition.Right := (WindowPlacement.rcNormalPosition.Left) + (FMain.Constraints.MinWidth); WindowPlacement.showCmd := SW_HIDE; SetWindowPlacement(FMain.Handle, @WindowPlacement); FMain.Width := FMain.Constraints.MinWidth; FMain.Height := FMain.Constraints.MinHeight; FMain.Top := WindowPlacement.rcNormalPosition.Top; FMain.Left := WindowPlacement.rcNormalPosition.Left; FMain.WindowState := wsNormal;

---