| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
titomac Cdt

Registrado: 23 Feb 2006Mensajes: 18
|
Publicado: Jue 06 Jul, 2006 9:47 am Asunto: Tamaño de ventana minimo |
|
|
Hola, estoy intentando hacer una ventana que sea redimensionable, pero que a la vez tenga un minimo fijo. Quiero decir, que no se pueda hacer mas pequeña de cierto tamaño.
Para ello he probado lo siguiente:
| Código: | void __fastcall TFormPcpal::FormResize(TObject *Sender)
{
if(FormPcpal->ClientHeight<40)
ClientHeight=40;
if(FormPcpal->ClientWidth<902)
ClientWidth=902;
} |
En la practica funciona, pero al llegar a los limites la pantalla parpadea hasta que sueltas el raton y vuelve al tamaño. Es bastante feo.
Hay alguna forma de solucionarlo o hacerlo de otra manera? |
|
| Volver arriba |
|
 |
Tugui Master


Registrado: 09 Nov 2002Mensajes: 663
|
Publicado: Jue 06 Jul, 2006 3:11 pm Asunto: |
|
|
Si únicamente se trata de eso puedes conseguirlo ajustando los diferentes apartados de la propiedad Constraints de tu formulario en tiempo de diseño, y así no tienes que escribir nada de código. _________________ ¡ADELANTE CON ESTE SUPER FORO! |
|
| Volver arriba |
|
 |
titomac Cdt

Registrado: 23 Feb 2006Mensajes: 18
|
Publicado: Jue 06 Jul, 2006 3:18 pm Asunto: |
|
|
| Igual no me esprese bien. Yo quiero permitir al usuario que ponga la patalla del tamaño que quiera, pero con la condicion de que no baje de un mínimo, ya que si lo hace desaparecen botones y mas cosas. |
|
| Volver arriba |
|
 |
Tugui Master


Registrado: 09 Nov 2002Mensajes: 663
|
Publicado: Jue 06 Jul, 2006 6:20 pm Asunto: |
|
|
Pues para eso mismo sirve lo que te he dicho. Si yo en el Object Inspector despliego Constraints y pongo la propiedad MinHeight a 40 y luego la propiedad MinWidth a 902 eso hará que cuando el formulario esté en ejecución el redimensionamiento del mismo nunca será inferior a esas medidas. Espero que esta vez se me entienda. _________________ ¡ADELANTE CON ESTE SUPER FORO! |
|
| Volver arriba |
|
 |
titomac Cdt

Registrado: 23 Feb 2006Mensajes: 18
|
Publicado: Jue 06 Jul, 2006 9:28 pm Asunto: |
|
|
Muchas gracias, estas en lo cierto, fue culpa mia que lo entendi mal.
Gracias de nuevo. |
|
| Volver arriba |
|
 |
Miguel Angel Torres Master


Registrado: 23 Abr 2006Mensajes: 282Ubicación: Siegen, Alemania
|
Publicado: Jue 06 Jul, 2006 9:45 pm Asunto: llegué tarde..... |
|
|
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Form1->Constraints->MinHeight=40;
Form1->Constraints->MinWidth=920;
} _________________ Entre más sé, sé que nada sé
----------------------------------
Miguel Angel Torres Arredondo
Siegen - Deutschland |
|
| Volver arriba |
|
 |
|