Form en primer plano

[chinchan]

Hola a todos, tengo una aplicación en C++ Builder en la que uno de sus Form (que no es el principal), quiero que esté en primer plano (StayonTop) pero también en primer plano ante cualquier otro programa o aplicación de Windows. ¿Se puede hacer? ¿Cómo?. Muchas Gracias.

[Casimiro Notevi]

Mira alguno de los enlaces del final de esta página, abajo del todo, pueden servirte.

[ecfisa]

Hola chinchan.

En el evento OnShow del form que te interese tenga ese comportamiento:

void __fastcall TfrmSecundario::FormShow(TObject *Sender) {
 SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_SHOWWINDOW);
}

Saludos.

[[escafandra]]

La respuesta de ecfisa es correcta , como lo es esta variante:

__fastcall TForm2::TForm2(TComponent* Owner)
  : TForm(Owner)
{
  SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE | SWP_NOMOVE);
}

Esto, directamente desde la VCL, también debería funcionar en fase de diseño o ejecución:

__fastcall TForm2::TForm2(TComponent* Owner)
  : TForm(Owner)
{
  FormStyle = fsStayOnTop;
}

Saludos.

[[escafandra]]

Analizando mejor la cuestión me doy cuenta de que se pide en un form que no sea el principal...

En ese caso el mecanismo que propongo es reescribir la función virtual TForm::WndProc():

class TForm2 : public TForm
{
...........
protected:    
  virtual void __fastcall WndProc(Messages::TMessage &Message);
..........
};

void  __fastcall TForm2::WndProc(Messages::TMessage& Message)
{
  if(Visible && Message.Msg == WM_KILLFOCUS)
      SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE | SWP_NOACTIVATE);

  TForm::WndProc(Message);
}

Saludos.

[chinchan]

Gracias por responder. Efectivamente, las soluciones que dáis valen si llamo a este Form como ShowModal, la solución creo que es la que apunta Escafandra al final, lo que ocurre es que me pierdo con eso de reescribir la función virtual TForm::WndProc():
Escfandra: podrías por favor, aclarar un poco esa última solución que has propuesto?.

Muchas Gracias.