Discussion :

[Karim1971]

salut

Comment faire pour empêcher de changer les dimentions d'une fenêtre par la souris en mode exécution ?

merci

[evarisnea]

c'est démensions ou dimensions ?
regardes du coté de la propriété BorderStyle de ta form, les valeurs bsSizeable et bsSizeToolWin permettent de redimensionner la form à l'aide de la souris (ou du clavier). si tu ne veux pas que les dimensions puissent être changées, met par exemple la propriété BorderStyle de ta form a bsSingle et met l'attribut biMaximize de la propriété BorderIcons à false. tu pourrais aussi intercepter le message WM_SIZING envoyé à ta form lorsque celle ci est redimensionnée, mais c'est un peu plus compliqué.

[Philippe Gormand]

Salut.

Il y a beaucoup plus simple que d'intercepter les messages WINDOWS.
Un truc tout simple. Utiliser l'événement OnCanResize :

Code :

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

1
2
3
4
5
6
7
8
9
 
 
procedure TForm1.FormCanResize(Sender : TObject; var NewWidth,
   NewHeight : Integer; var Resize : Boolean);
begin
    // Forcer les dimensions d'origine à chaque tentative de redimensionnement
     NewWidth := Width;
     NewHeight := Height;
end;

[devyan]

Salut.

Il y a beaucoup plus simple que d'intercepter les messages WINDOWS.
Un truc tout simple. Utiliser l'événement OnCanResize :

Code :

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

1
2
3
4
5
6
7
8
9
 
 
procedure TForm1.FormCanResize(Sender : TObject; var NewWidth,
   NewHeight : Integer; var Resize : Boolean);
begin
    // Forcer les dimensions d'origine à chaque tentative de redimensionnement
     NewWidth := Width;
     NewHeight := Height;
end;

On peut aussi utiliser les propriétés Constraints de la form

[Matt2094]

Salut.

Il y a beaucoup plus simple que d'intercepter les messages WINDOWS.
Un truc tout simple. Utiliser l'événement OnCanResize :

Code :

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

1
2
3
4
5
6
7
8
9
 
 
procedure TForm1.FormCanResize(Sender : TObject; var NewWidth,
   NewHeight : Integer; var Resize : Boolean);
begin
    // Forcer les dimensions d'origine à chaque tentative de redimensionnement
     NewWidth := Width;
     NewHeight := Height;
end;

Cette méthode n'est pas super parce qu'elle est lancé à chaque fois que la fiche est en redimenssionement, ce qui utilise énormément de temps, et ça peut être saccadé ...


Pour résumer :

- BorderStyle pour empêcher radicalement la redimension
- Contraints pour limiter le redimensionnement de ta form

[Philippe Gormand]

C'est un vieux truc qu'on utilisait quand la propriété Constraints
n'existait pas sous DELPHI.

"Cette méthode n'est pas super parce qu'elle est lancé à chaque fois que la fiche est en redimenssionement, ce qui utilise énormément de temps, et ça peut être saccadé ..."

Erreur, erreur. La methode Resize n'est lancée qu'au relachement du
bouton de la souris. Il n'y a pas de saccadement. Essaies.


"- BorderStyle pour empêcher radicalement la redimension
- Contraints pour limiter le redimensionnement de ta form"

Bien sur ça marche mais attention. Lire les avertissements dans l'aide
de DELPHI.


En tout cas, j'utilise toujours sans problème ma méthode qui permet en
plus, éventuellement d'afficher un message si on tente de
redimenssionner la fiche.

Enfin, à chacun son truc.

A+

[Matt2094]

"Cette méthode n'est pas super parce qu'elle est lancé à chaque fois que la fiche est en redimenssionement, ce qui utilise énormément de temps, et ça peut être saccadé ..."

Erreur, erreur. La methode Resize n'est lancée qu'au relachement du
bouton de la souris. Il n'y a pas de saccadement. Essaies.

Excuse, j'avais pas vérifié entièrement

[Karim1971]

salut
ok, c'est bon
merci