Discussion :

[portu]

Bonjour,
J'ai un petit souci avec la fenêtre principale de mon application (FsMDIForm).
J'aimerai qu'elle ne puisse rester qu'en Plein écran.
Sa propriété WindowState est bien WsMaximized, BorderStyle est bien en BsSingle et je désactivé dans la propriété BorderIcons BiMaximize.

Resultat : Sa à l'air d'aller a part que lorsque l'on double click sur sa barre de titre , le fenetre devient toute petite et impossible de la remettre en full-screen. Et lorsqu'elle est en full-screen, bein elle prend tout l'écran meme si la barre des tâches Windows n'est pas en "Masquer automatiquement".

Donc, le resultat souhaité serait :
- Aucune modification possible de la taille de la fenêtre en plein-écran (sur zone bureau/client) donc en fonction de si oui ou non la barre des tâches est affichée.

Merci pour tout.

[JustMe]

Peut être que si tu aligne la form à alClient ça la gardera en plein écran toujours.

[portu]

Non, ca foire tj.
Enfin, j'ai plus ou moins trouvé.
Un peu bourin,mais bon ca marche presque .
A la création de la fiche, attribuer les valeurs de Screen.WorkAreaRect à Top, left, height, Width de la fiche et mettre borderstyle à bsSingle.

Ca marche nickel ! à part que si la barre de tâche est masquée automatiquement, on ne peut plus la voir lorsque qu'on met le curseur en bas de l'écran.

Donc, j'ai du remettre la propriété à BsSizeable .
Après ca, je devait gérér l'interdiction du redimmensionnement avec l'évenement OnConstrainedResize .
Sa marche à part que lorsque l'on essaie de redimmensionner la fiche, elle ne se redimensionne pas mais elle se déplace .

Y a t'il un évenement qui me premetrais de savoir lorsqu'il y a déplacement de la fiche ?

J'ai essayé dans le OnConstrainedResize en redéfinissant Top et Left , beau petit bug écran

Ok, j'arrete


Merci quand même.

[Nono40]

Ceci par exemple :
http://nono40.developpez.com/sources/source0075.html

[portu]

Ha, les ppetit message , tj bien sympa !
Mais hélas, ne va pas dans mon cas (je commence à devenir chiant, je sais ).
Pcq qu'il y a déplacement de la fiche non pas quand on fait un glisser sur la barre de titre mais lorsque l'on fait un resize (dans mon cas).

Si je détermine un valeur à top et left dans la procedure WMSizing, la fiche ca place bien lorsque click sur le bord mais revient au meme endroit lors du "déclick" .

Merci quand même


Ps: Je suis le seul à avoir eu ce genre de problème avec les fenêtres ou c'est un problème assez souvent rencontré, pcq là, je me pose des questions

[lil_jam63]

Un petit truc du même style que Nono

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
  ...
  Procedure WMSizing(Var Msg: TMessage); message WM_SIZING;
  ...
procedure TForm1.WMSizing(Var Msg: TMessage);
begin
  if (windowState = wsMaximized) then
    begin
      Msg.Wparam := 0;
      Msg.Lparam := 0;
    end;
end;

Comme ça, une fois que ta fenêtre est en plein écran, plus de redimensionnement possible jusqu'à la fermeture de l'appli.
PS: pas testé

[portu]

Bon, j'y suis arrive grâce au infos que vous m'avez données

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
25
26
27
28
29
 
procedure TForm1.WMSizing(Var Msg: TMessage);
Var
P : PRect;
begin
p:=PRect(Msg.LParam);
p^.Top    := Top   ;
p^.Left   := Left  ;
p^.Right  := Width+Left;
p^.Bottom := Height+Top;
end;
 
Procedure TForm1.WMMoving(Var Mes: TMessage);
Var p:PRect;
Begin
  p:=PRect(Mes.LParam);
  p^.Top  := Screen.WorkAreaTop;
  p^.Left := Screen.WorkAreaLeft;
End;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
R     := Screen.WorkAreaRect;
Top   := R.Top;
Left  := R.Left;
Height:= R.Bottom-R.Top;
Width := R.Right-R.Left;
end;

Et voila, tout roule puisque je peux laisser la propriété BsSizeable qui permetra d'afficher la barre de tâche lorque celle-ci est en "masquer automatiquement".

Merci à vous tous et bonne soirée.