Comment empecher un utilisateur d'agrandir une fenetre ?
Comment empecher un utilisateur d'agrandir une fenetre ?
je ponce que c'est l'option borderstyle !!
Bonjour,
Dans BorderIcons, tu mets biMinimize et biMaximize à false, et BorderStyle à bsSingle
A+
Charly
Bonjour,
Vous pouvez aussi paramétrer la propriété Constraints et ses 4 éléments MaxHeight, MaxWidth, MinHeight et MinWidth.
Bonjour,
on peut aussi gérer l'évènement onResize de la forme
si les contraintes ont été renseignées
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
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;
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;
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;![]()
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
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;
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager