Animación para abir una ventana con Timer1
Publicado por Alma (1 intervención) el 24/05/2005 20:19:07
Necesito una orientación de como usar el Timer, ya que quiero darle el efecto a un formulario de irlo abriendo al activarse la ventana de irlo cerrando al dar clic en el boton de cerrar.
Este es el código q tengo para cerrarlo:
void __fastcall TForm2::Timer1Timer(TObject *Sender)
{
int i,j;
i=451;
j=418;
TimeOver=0;
if (TimeOver==10)
{
Timer1->Enabled=false;
}
else
{
TimeOver++;
while(i<=0)
while(j<=0)
{
Form2->Height=i;
Form2->Width=j;
i=i-1;
j=j-1;
}
}
}
Este es el código q tengo para cerrarlo:
void __fastcall TForm2::Timer1Timer(TObject *Sender)
{
int i,j;
i=451;
j=418;
TimeOver=0;
if (TimeOver==10)
{
Timer1->Enabled=false;
}
else
{
TimeOver++;
while(i<=0)
while(j<=0)
{
Form2->Height=i;
Form2->Width=j;
i=i-1;
j=j-1;
}
}
}
Valora esta pregunta
0