Discussion :

[Modulpro]

Bonjour,

J'affiche une fênetre en plein écran en mettant la propriété WindowState de la form à wsMaximized. Je peux ensuite récupérer les dimensions de la fenêtre grâce à ses propriétés Width et Height.

Seulement, si j'effectue ces récupérations dans les procédures "formcreate" ou "formshow", j'obtient les résultats affichés dans l'inspecteur d'objet, et non les nouvelles dimensions ; tandis que si je le fais une fois ma fenêtre affichée, (au clique sur un bouton par exemple), les résultats correspondent bien à la taille de la fenêtre en plein écran.

Ma question est donc : comment obtenir les véritables dimensions de la form en plein écran à l'affichage de celle-ci, sans action de l'utilisateur ? Cela me permettrait d'optimiser la taille des composants visuels, afin qu'ils soient les plus grands possibles, sans sortir de l'écran.

Merci d'avance.

[mick605]

Salut

Je n'ai pas ce problème sous Delphi ... Les bonnes dimensions sont affichées ... Peut être essayer avec l'évenement OnActivate ? Sinon, tu peux récupérer les dimensions de l'écran avec Screen.Height/Width ...

Bonne chance

[DOLPat®]

Bonjour

Seulement, si j'effectue ces récupérations dans les procédures "formcreate" ou "formshow", j'obtient les résultats affichés dans l'inspecteur d'objet, et non les nouvelles dimensions

C'est logique dans le create car ta fiche n'est même pas encore créée...
C'est chose faite dans la OnShow, mais dans le mode fsNormal, donc dans les dimensions d'origine.

La seule possibilité est d'utiliser OnFormResize. Mais là aussi, il faut ruser car au premier déclenchement, tu auras aussi les dimensions d'origine. Donc soit, tu attends le second déclenchement ou alors tu fais une comparaison du style:

Code :

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

1
2
if Width <> LargeurOrigine then
  Ton code...

Par contre, je ne sais pas ce que donneras visuellement les redimensionnements de tes composants puisque le fenêtre sera visible à ce stade...

À mon sens, le plus simple reste (comme suggéré par mick605) le redimensionnement manuel en utilisant les valeurs de Screen.Width et Screen.Height en laissant ta feuille à fsNormal.

[tintinux]

Bonjour,

Pour donner aux composants visuels une taille optimale, il me semble qu'il est plus simple et préférable d'utiliser les propriétés Anchors et Align.

[mick605]

C'est logique dans le create car ta fiche n'est même pas encore créée...

C'est effectivement ce que je croyais ... Mais, sous D2005, je change dans l'inspecteur d'objet la valeur de WindowState a wsMaximized, et dans le OnCreate un ShowMessage(). Résultat : Le showmessage me montre bien les bonnes dimensions de la fiche en plein écran.

Vérifie ton code, et peut être poste le nous. Peut être une différence entre Delphi et Lazarus (bug ?) ?

[DOLPat®]

Bonjour

Vérifie ton code, et peut être poste le nous.

Je ne vois pas ce que je pourrais vérifier car mon test se tient en une ligne de code:

Code :

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

1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage(IntToStr(Width));
end;

Ma TForm est évidemment mise à wsMaximized dans l'inspecteur d'objet.
Et lors de l'exécution, j'obtiens bien la largeur contenue dans l'inspecteur d'objet et non pas celle de l'écran...

Le test à été effectué avec Lazarus 0.9.31.

[mick605]

Bon, j'opterais alors pour un bug ...

Travaille avec le Screen.Width ...

EDIT :
As tu essayé de réassigner la valeur wsMaximized au début du OnCreate de ta fiche ?