Discussion :

[slimjoe]

Bonjour!

J'ai une application MDI dans laquelle j'ai une fiche qui n'est pas maximisée (WindowState = wsNormal). Lorsque je la maximise (WindowState = wsMaximised), elle prend alors toute la surface de la fiche maître fsMDIForm. Si j'appuie sur le bouton pour la restaurer (la remettre à wsNormal), elle reprend alors sa taille d'origine.

Ma question est simple: existe-t-il un moyen de connaître la taille originale d'une fiche MDIChild lorsqu'elle est maximisée ?

Merci!

[rbh]

Salut
Je ne sais pas si ça marche avec du MDI mais chez nous, pour mémoriser ces infos, on utilise WindowPlacement.ex:

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
 
var
  WindowPlacement: TWindowPlacement;
  MyRegistry: TRegistry;
begin
...
  WindowPlacement.length := 44;
  WindowPlacement.flags := 0;
  WindowPlacement.showCmd := 1;
  GetWindowPlacement(Handle, @WindowPlacement);
 
  try
    MyRegistry.WriteInteger('MCPosX', WindowPlacement.rcNormalPosition.Left);
    MyRegistry.WriteInteger('MCPosY', WindowPlacement.rcNormalPosition.Top);
    MyRegistry.WriteInteger('MCWidth', (WindowPlacement.rcNormalPosition.Right - WindowPlacement.rcNormalPosition.Left));
    MyRegistry.WriteInteger('MCHeight', (WindowPlacement.rcNormalPosition.Bottom - WindowPlacement.rcNormalPosition.Top));
    MyRegistry.WriteBool('MCFullScreen', (WindowState = wsMaximized));
  except
 
  end;
 
end;

Je t'ai copier coller le code de chez nous (sauvegarde ds la Bdr de la position de la fenêtre).
Par contre je ne peux pas te dire pourquoi length = 44 et les autres paramêtres car ce n'est pas moi qui est produit ce code.

[slimjoe]

Merci!