Discussion :

[popo]

Bonjour,

J'ai une fiche qui s'ouvre maximisée et donc le Width et le Height s'adapte à la taille de l'écran.
J'aimerai connaître le Width et le Heigh qu'elle aurait si elle ne s'ouvrait pas en maximisée.

J'ai essayé de trapper le message WM_GETMINMAXINFO mais ça ne passe pas dedans.

[Lung]

Et quand tu fais ton test dans le OnCreate, la fenêtre est déjà redimensionnée ?

[popo]

Oui, c'est déjà trop tard.
J'ai fait au plus simple avec un constructeur et un événement Create avec un point d'arrêt dans chaque méthode.

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
TFormTest = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
    FInt  : Integer;
  public
    { Déclarations publiques }
    constructor Create(AOWner : TComponent); override;
  end;
 
constructor TFormTest.Create(AOWner: TComponent);
begin
  inherited;
 
end;
 
procedure TFormTest.FormCreate(Sender: TObject);
begin
  FInt := 0;
end;

Avant le inherited les valeur sont à zéro.
Après le inherited les valeurs sont déjà celles de la fenêtre maximisée.

[tourlourou]

Quid des événements OnCanResize et OnConstrainedResize ?

[popo]

Idem, ce qui est plutôt logique vu qu'il sont appelés après.

[Lung]

Je ne comprend pas tout.

Je viens de faire un nouveau projet de test :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage(IntToStr(Height) + #13#10 + IntToStr(Width));
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
  ShowMessage(IntToStr(Height) + #13#10 + IntToStr(Width));
end;

Le OnCreate me donne la taille de conception, et le OnResize me donne la taille maximisée.

[ShaiLeTroll]

Attention, le comportement de FormCreate dépend de OldCreateOrder
Quelle version de Delphi ?

Comme Lung, sur XE2, cela fourni les tailles du Design dans le OnCreate

Sinon dans le constructor,
Avant le inherited, c'est logique que cela soit à zéro, l'objet est juste initialisé
Le inherited Create fait appel au CreateNew qui crée une fenêtre vierge ensuite le Create charge le DFM (cela crée les contrôles, lie les références ...) et par conséquent cela charge les valeurs Width et Height

En réalité, ce n'est pas Width et Height mais plutôt ClientHeight et ClientWidth qui sont stockés à la place de Height et Width dans le DFM car évite des problèmes liés au changement de bordure du thème !
Mais pour que ClientHeight et ClientWidth soit géré et donc avoir la bonne taille au FormCreate,
il faut laisser HorzScrollBar.Range et VertScrollBar.Range à Zéro et laisser AutoScroll à False !
Pour les curieux qui ont une version PRO ou plus, voir ligne 5355 de TCustomForm.CreateParams (Vcl.Forms.pas)
Si l'on change l'un des des trois, on obtient le phénomène observé par popo
Cela peut aussi exister sur un ancien Delphi qui n'avait pas encore bénéficié de ces améliorations !

Comme Windows peut restorer une fenêtre au dimension prévue, c'est qu'il connait les dimensions de restauration
Et même Windows, ne retrouve plus la taille de restauration si l'on touche à AutoScroll / HorzScrollBar / VertScrollBar

rcNormalPosition
Type: RECT

The window's coordinates when the window is in the restored position.

Code :

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

1
2
3
4
5
6
7
8
9
var
  wp : TWindowPlacement;
begin
  ZeroMemory(@wp, SizeOf(wp));
  wp.length := SizeOf(wp);
  GetWindowPlacement(Self.Handle, wp);
  ShowMessage(Format('%d, %d -> %d, %d / H %d W %d ', [wp.rcNormalPosition.TopLeft.X, wp.rcNormalPosition.TopLeft.Y, wp.rcNormalPosition.BottomRight.X, wp.rcNormalPosition.BottomRight.Y,
    wp.rcNormalPosition.Height, wp.rcNormalPosition.Width]));
end;