Tamaño mínimo del form

[Cecilio]

Hola.
Intento controlar que una form no pueda hacerse más pequeña de unos pixeles determindos con este código:

Código Delphi [-]
procedure TForm1.FormResize(Sender: TObject);
begin
if form1.Width<660 then
  form1.Width:=660;
end;

Funciona, pero hace unos parpadeos muy poco esteticos.
¿ como pude controlar las dimensiones sin esos parpadeos ?

Gracias.

[[Delphius]]

Hola Cecilio,
Para que no te moleste ese efecto establece la propiedad DoubleBuffered del form en true. Lo ideal sería en el evento OnCreate; si usas las versiones más nuevas de Delphi verás la propiedad en tiempo de diseño, en otro caso no queda otra que hacerlo por código (en versiones viejitas, esa propiedad es pública más no publicada).

Saludos,

[Khronos]

Hola,

Código Delphi [-]
Form1.Constraints.MinWidth:= 660;

La propiedad constraints te servirá, sin ningún tipo de parpadeos.

Saludos.

[Cecilio]

Gracias a los dos.

Empezado por Khronos

Hola,

Código Delphi [-]Form1.Constraints.MinWidth:= 660;


La propiedad constraints te servirá, sin ningún tipo de parpadeos.

Saludos.

Lo he usado y va de lujo, lo bueno es que es muy cómodo de usar y va de perlas.
Gracias de nuevo.