Problema al redimensionar un form

[NEG1414]

Buenas, mi problema es el siguiente:

Desde un Form1 accedo a otro Form2 mediante la forma modal:


TForm2 * prueba;

prueba = new TForm2(this);

//Mostramos el Formulario como modal
switch (prueba->ShowModal())
{
case mrOk:
break;
}

En el evento Activate del Form2 (dependiendo de una condicion)este debe de redimensionarse (hacerse mas pequeño),

Form2->Height =xxx

pero no lo hace.

Supongo que tiene que ver con el acceso modal pero no consigo solucionarlo
Alguna Idea.


Gracias