Discussion :

[deetox]

Bonsoir à tous...

J'utilise ce code :

Code :

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

Perform(WM_SYSCOMMAND,SC_MAXIMIZE,0);

ou celui ci :

Code :

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

postmessage(form1.Handle,WM_SYSCOMMAND,SC_MAXIMIZE,0);

afin de maximiser une fenêtre sous windows... Je veux absolument passer par windows car je veux que la form soit déclarée comme agrandie par l'os...

le problème,c'est que cette forme est en borderstyle=bsnone et ne tient pas compte de ma barre de tâches ( elle s'affiche en plein écran derrière celle ci ). J'ai testé avec borderstyle=bssizeable et ca marche très bien... J'ai essayé en faisant :

Code :

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

1
2
3
4
 
form1.bordestyle=bssizeable;
postmessage(form1.Handle,WM_SYSCOMMAND,SC_MAXIMIZE,0);
form1.bordestyle=bsnone;

Ca marche pas non plus !!!

Quelqu'un peut il m'aider ???

Merci beaucoup.

DeeTOX.

[Lung]

Et Application.Minimize; ?

[deetox]

'marche impecable !!! Mais je veux la MAXimiser ! lol

Merci de m'aider.

DeeTOX.

[rvzip64]

Beh:

Code :

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

1
2
 
Application.Maximize.

[deetox]

Ca existe pas ca !!! J'ai oublié de dire : j'suis sous delphi 7.0 donc peut être sur d'autres versions mais là, maximise n'existe ni sur tform ni sur application... Peut être me faut il des uses particulier ?

[rvzip64]

alors essaye ceci:

Code :

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

1
2
 
Form1.windowstate:=wsMaximized;

[deetox]

Non désolé : ca a le même effet que mes codes...

[rvzip64]

et avec la propriété align en client ?? cela fait quoi ?

[deetox]

Ca fonctionne et c'est mon ancienne solution mais dans ce cas windows n'est pas au courant de l'agrandissement de la fenêtre donc ca va pas... désolé...

[Lung]

'marche impecable !!! Mais je veux la MAXimiser ! lol

J'ai parlé trop vite.

Par contre, j'ai fais un nouveau projet avec une fichier en BorderStyle := bsNone et un bouton avec cette instruction :

Code :

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

   WindowState := wsMaximized;

La fenêtre se maximise immédiatement.

[deetox]

et avec ca, windows croit que c'est en plein écran ???

Nouveau problème au passage avec bsnone : La fenêtre ne réagis pas comme une fenêtre avec bordure ( par exemple, pas d'ombres avec y z shadow ).... Je pense que delphi déclare un truc pas net lorsqu'il ouvre la fenêtre mais quoi...

Help me please...

[deetox]

CA Y EST !!! J'ai trouvé... Alors, ca peut interesser pas mal d'entre vous alors je le met !!!

Je récapitule : ce code permet de faire de votre fenêtre une fenêtre sans bordures et sans barre de titre ( type bsnone ) mais qui prend en compte yzshadow, les réduction sur objectdock... bref, elle réagit comme une fenêtre en bssizeable !!! et pour cause :

Primo : il faut laisser votre fenêtre en bssizeable ( aussi bizarre que ca puisse vous parraitre )

Secundo : a vos claviers :

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
 
 
public
carre : hrgn;
 
...
 
SetWindowLong(form1.Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and not(WS_Border) and not(WS_sizebox));
 
carre :=   CreateRectRgn(form1.ClientRect.Left+GetSystemMetrics(SM_CXBORDER)+GetSystemMetrics(SM_CXEDGE),
form1.ClientRect.top+GetSystemMetrics(SM_CYBORDER)+GetSystemMetrics(SM_CYEDGE),
form1.ClientRect.right-GetSystemMetrics(SM_CXBORDER)+GetSystemMetrics(SM_CXEDGE),
form1.ClientRect.bottom-GetSystemMetrics(SM_CYBORDER)+GetSystemMetrics(SM_CYEDGE)
 
);
setwindowrgn(
form1.Handle,
carre,     // handle to window
true  // window redraw option
);

Le principe est simple : on enlève les barres en trop ( titre, sizebox ) de la fenêtre puis avec setwindowrgn, on limitte la région d'affichage de la fenêtre... C'est du bricolage mais ca marche impec !!! J'suis trop content !!! lol


J'ai galèré pour ca alors si ca peut vous être utile, bonne chance !

DeeTOX.