Discussion :

[rouba27]

Comment empecher un utilisateur d'agrandir une fenetre ?

[rouba27]

je ponce que c'est l'option borderstyle !!

[Charly910]

Bonjour,

Dans BorderIcons, tu mets biMinimize et biMaximize à false, et BorderStyle à bsSingle

A+
Charly

[Teddy]

je ponce que c'est l'option borderstyle !!

Avec du papier de verre fin alors...

[Ph. B.]

Bonjour,

Vous pouvez aussi paramétrer la propriété Constraints et ses 4 éléments MaxHeight, MaxWidth, MinHeight et MinWidth.

[SergioMaster]

Bonjour,

on peut aussi gérer l'évènement onResize de la forme

si les contraintes ont été renseignées

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.FormResize(Sender: TObject);
begin
if Height>MaxHeight then Height:=MaxHeight;
if Width>MaxWidth then Width:=MaxWidth;
if Height<MinHeight then Height:=MinHeight;
if Width<MinWidth then Width:=MinWidth;
end;

sinon on peut toujours, bien sur, utiliser des constantes

Code :

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

1
2
3
4
5
6
 
procedure TForm1.FormResize(Sender: TObject);
begin
Height:=300;
Width:=400;
end;

[edam]

Bonjour,

on peut aussi gérer l'évènement onResize de la forme

si les contraintes ont été renseignées
[CODE]
procedure TForm1.FormResize(Sender: TObject);
begin
if Height>MaxHeight then Height:=MaxHeight;
if Width>MaxWidth then Width:=MaxWidth;
if Height<MinHeight then Height:=MinHeight;
if Width<MinWidth then Width:=MinWidth;
end;

si les contrainte sont renseignées je crois que c'est OS qui s'en occupe, non??
je crois que tu veux utiliser:

Code :

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

1
2
3
4
5
procedure TForme1.FormConstrainedResize(Sender: TObject; var MinWidth,
  MinHeight, MaxWidth, MaxHeight: Integer);
begin
 
end;

[SergioMaster]

Bonjour,

@Edam tout dépend de la version de Delphi (non indiquée)
j'ai donc mis des "recettes" éprouvées (D3)

j'aurais plutôt du écrire "si les contraintes sont renseignables" plutôt que "si les contraintes sont renseignées"
et non je ne me suis pas trompé d'évènement il s'agit bien de OnFormResize et non de onConstrainedResize qui lui détecte le changement de contraintes

[edam]

ok,
il y a aussi

Code :

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

1
2
3
4
5
procedure TForme1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
 
end;