¿Cuál es el formulario activo?

[ecfisa]

Hola.

Si, con la variable global Screen.

Un ejemplo:

Código PHP:

void __fastcall TMainForm::Button1Click(TObject *Sender)
{
  Form2->Show(); Form3->Show(); Form4->Show();
  Timer1->Interval = 3000;
  Timer1->Enabled = true;
}

void __fastcall TMainForm::Timer1Timer(TObject *Sender)
{
  //if ( Screen->ActiveForm == this ) // ¿ el form activo es el actual ?

  // muestra el nombre del form actual activo:
  ShowMessage( "El Form activo es : " + Screen->ActiveForm->Name ); 
} 


Saludos

[Angel.Matilla]

Muchas gracias. No se me había ocurrido.