FMX sous XE2, TForm et constraints

Bonjour,

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

Papy

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:

---

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

---

J'ai comme ça :

Code:

---

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:cry:

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

Pour éviter les effets graphiques pourris :

Code:

---

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;

---