Discussion :

[Papy214]

Bonjour,

Est-ce qu'il y a un moyen de mettre une taille minimum à une TForm comme avec le VCL ?

Papy

[curt25]

Bonjour,

Je ne crois pas que c'est possible!
En revanche vous pouvez le faire facilement dans l’événement "OnResize".
Simplement un simple contrôle:

Code :

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

1
2
if Width < 200 then
    Width := 200;

[Papy214]

J'ai comme ça :

Code :

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

1
2
  if (Width < 900) or (Height < 600) then
    SetBounds(Self.Left, Self.Top, 900, 600);

Mais ça ne bloque pas le curseur souris et visuellement c'est vraiment pas terrible

Sinon, au relâcher de la souris, la fenêtre prend bien la taille désirée.

Je m'en contenterai pour le moment. Merci

[Papy214]

Pour éviter les effets graphiques pourris :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm11.FormResize(Sender: TObject);
const
  MinWidth  = 900;
  MinHeight = 600;
begin
  if (Width < MinWidth) or (Height < MinHeight) then
  begin
    SetBounds(Self.Left, Self.Top, MinWidth, MinHeight);
    Self.ReleaseCapture;
  end;
end;