Discussion :

[Invité]

Bonjour,

je souhaite alterner la taille de ma fenêtre de normal à tout l'écran.
Pour cela j'ai un popup menu avec 2 items "Agrandir" et "réduire" qui utilisent le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.mnAgrandirClick(Sender: TObject);
begin
  WindowState := wsMaximized;
end;
 
procedure TForm1.mnReduireClick(Sender: TObject);
begin
  WindowState := wsNormal;
end;

Jusque là tout va bien.
Maintenant je souhaite passer d'un mode d'affichage à l'autre en double cliquant directement sur le form.
Je pensais faire simplement :

Code :

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

1
2
3
4
5
6
procedure TForm1.FormDblClick(Sender: TObject);
begin
  if (WindowState = wsNormal)
  then WindowState := wsMaximized
  else WindowState := wsNormal;
end;

Le problème est alors que lors de l'agrandissement la fenêtre est mal positionnée, elle reste où elle se trouve au milieu de l'écran avec la bonne taille agrandi.
Est-ce un bug ? Ou dois-je faire différemment ?

Merci de vos réponses.
Ben

[thewolf]

Bonjour.

Je ne comprends pas bien votre question. J'ai essayé et le comportement me semble être celui attendu : la fenêtre passe en plein écran puis revient à son état initial (taille et emplacement).

Christian

[microb]

Bonjour,
j'ai essayé et pour moi aussi,le comportement est normal.

[mm_71]

Pareil pour moi, ça fonctionne. Après agrandissement plein écran le retour à wsNormal la remet à la taille et position qu'elle avait avant.

[Lung]

En Delphi, ça pourrait être un problème lié à la propriété Position de la Form.
Cette propriété existe sous Lazarus ?

[Invité]

J'ai 2 écran, je ne sais pas si cela peut jouer.
Je vous joins une copie du projet si vous pouvez tester ce que cela donne chez vous.

Merci