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.

[[escafandra]]

Una función virtual es una función de la clase base que puede ser, o no, redefinida en las clases derivadas y que tras ello puede ser llamada desde un puntero o referencia a su clase base.

WndProc es una función virtual de la clase base TForm que hereda nuestro formulario y que usará a no ser que la reescribamos para nuestro formulario. WndProc se encarga del tratamiento de todos los mensajes de TForm y las clases derivadas (se hereda). Como nos interesa interceptar los mensajes redefino la función, es por ello que puse una fracción de la definición de la clase de nuestro formulario en primer plano:

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

Y luego la implementamos teniendo cuidado de terminar llamando a la función WndProc de la clase base (TForm::WndProc).

Este truco sirve para interceptar cualquier mensaje o crear nuevos eventos o respuestas a mensajes no previstos en la clase base TForm.

También podemos dar respuesta a un mensaje con la macro BEGIN_MESSAGE_MAP / END_MESSAGE_MAP(TForm)...

En definitiva, en este caso, estamos reescribiendo la respuesta al mensaje WM_KILLFOCUS para aprovechar a ponernos en primer plano:

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);
}

Espero haberme explicado bien.


Saludos.

[ecfisa]

Empezado por chinchan

Gracias por responder. Efectivamente, las soluciones que dáis valen si llamo a este Form como ShowModal

Hola chinchan.

Si, lo que te sugerí en el mensaje #3, funciona siempre que el form se muestre de forma modal. En cambio lo que te sugiere escafandra es una solución completa, ya que funciona para ambos modos.

Pero para que conserve el comportamiento aún despues de una segunda pérdida del foco, creo que habría que pasarle el flag SWP_SHOWWINDOW en lugar de SWP_NOACTIVATE.

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_SHOWWINDOW );
  }
  TForm::WndProc(Message);
}

Saludos.

[[escafandra]]

El hecho de cambiar SWP_NOACTIVATE por SWP_SHOWWINDOW puede provocar alteraciones al perder el foco pues la ventana se va a "negar" a ello. La única pega que se puede poner es que se debe poner FormStyle = fsStayOnTop; en el momento de diseño, en el constructor, o bien alterar el código de esta forma para obligar el primer plano desde el comienzo:

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

A mi me funciona correctamente en Win XP.


Saludos.

[ecfisa]

Hola escafandra.

Seguramente el comportamiento difiera por la diferente versión de S.O. ...

En Vista, lo que me sucede es que al mostrar el form por primera vez y realizar foco sobre otra aplicación de fondo, no pierde su condición de estar al frente. Pero al repetir la acción, es decir, darle nuevamente el foco al form y luego hacer click sobre otra aplicación la pierde.

Al agregar SWP_SHOWWINDOW como flag, se comporta como se espera. Y como detalle, del mismo modo lo hace si se agrega una lína con BringToFront(), todo esto habiendo sido mostrado como no modal.

También había probado el condicional de tu último mensaje

  if(Visible && Message.Msg == WM_KILLFOCUS || Message.Msg == WM_SHOWWINDOW)

ya que la captura me sonaba totalmente lógica, pero sin resultado (al igual que otras pruebas que intenté).


Un saludo.

[[escafandra]]

Empezado por ecfisa

Seguramente el comportamiento difiera por la diferente versión de S.O. ...

Muy seguramente...

Empezado por ecfisa

En Vista, lo que me sucede es que al mostrar el form por primera vez y realizar foco sobre otra aplicación de fondo, no pierde su condición de estar al frente. Pero al repetir la acción, es decir, darle nuevamente el foco al form y luego hacer click sobre otra aplicación la pierde.

¿Has probado así en Vista:?

  if(Visible && Message.Msg == WM_KILLFOCUS || Message.Msg == WM_SHOWWINDOW)
    SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE | SWP_NOACTIVATE | SWP_SHOWWINDOW);

Empezado por ecfisa

Y como detalle, del mismo modo lo hace si se agrega una lína con BringToFront(), todo esto habiendo sido mostrado como no modal..

En WinXp BringToFront(), en la captura de WndProc(), no funciona.

Quizás deba quedar así:

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

Habría que probar en Vista y en Win7...


Saludos.

[ecfisa]

¿Has probado así en Vista:?

  if(Visible && Message.Msg == WM_KILLFOCUS || Message.Msg == WM_SHOWWINDOW)
    SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE | SWP_NOACTIVATE | SWP_SHOWWINDOW);

Hola escafandra.

Si, pero al incluir en el condicional "...|| Message.Msg == WM_SHOWWINDOW)" hace que deje de tener el comportamiento, al igual que al agregar "| SWP_NOACTIVATE" como flag.

Hasta ahora el único modo con que he podido lograr el comportamiento es con:

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_SHOWWINDOW );
  TForm::WndProc(Message);
}

Realmente no sé el motivo, por que evaluar WM_KILLFOCUS y WM_SHOWWINDOW en el condicional pareciera totalmente razonable...

Saludos.

[[escafandra]]

Es curioso el comportamiento de Vista...

El WM_SHOWWINDOW se puede eliminar del condicional si colocamos el Form como FormStyle = fsStayOnTop en el constructor o en fase de diseño. Quizás esto cambie el comportamiento. Lo digo e insisto porque el hecho de cambiar SWP_NOACTIVATE por SWP_SHOWWINDOW si altera en Win XP haciendo que al perder el foco continue siendo ventana activa confundiendo al usuario.


Saludos.

[[escafandra]]

Me he dado cuenta de que no sirve WM_KILLFOCUS, si en el formulario tenemos un TEdit, al menos en WinXP (eso pasa por probar en condiciones de laboratorio y no reales ...)

Por lo tanto he probado esto otro que funciona muy bien en WinXP y que includo coloca nuestra ventana sobre cualquiera aún siendo otra también HWND_TOPMOST (por ejemplo el TaskMgr)

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

  TForm::WndProc(Message);
}

ecfisa, pruébalo en Vista y si puedes en Win7.


Saludos.

[ecfisa]

Tuve estos resultados:

Vista: siempre mantiene la posición al frente. Pero el form principal tiene un comportamiento algo extraño luego de que el form secundario pierde el foco y lo recupera nuevamente.
Por ejemplo, puse en el form principal un botón para mostrar el secundario (siendo este mas pequeño que aquel) y al recuperar el foco el form secundario, pareciera que el form principal se transparenta visualizando sólo el botón.

Continuando las pruebas agregué un Edit y de este sólo queda visible el nombre (Edit1), en este caso da la impresión de que hiciera una transparencia dejando los colores clBtnFace y clWindow, visibles sobre la aplicación de fondo.

W7: Aquí funciona perfectamente sin comportamientos extraños.

Saludos.

[[escafandra]]

Pues entonces vamos a forzar la máquina un poco mas.

Creo que este código va a funcionar en XP, Vista y Seven. Espero no equivocarme pues sólo lo he probado en XP

void ReDrawWindow(HWND hWnd)
{
  TRect cr;
  ::GetClientRect(hWnd, &cr);
  InvalidateRect(hWnd, &cr, true);
  SendMessage(hWnd, WM_NCPAINT, 0, 0);
  RedrawWindow(hWnd, &cr, 0, RDW_FRAME|RDW_ERASE|RDW_INVALIDATE|RDW_UPDATENOW|RDW_ALLCHILDREN);
}

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

  if(Visible && Message.Msg == WM_ACTIVATE){
    SetWindowPos(Application->MainForm->Handle, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE | SWP_NOACTIVATE);
    ReDrawWindow(Application->MainForm->Handle);
  }
  
  TForm::WndProc(Message);
}

Saludos.

[[escafandra]]

Mejorando el código para el caso de tener mas de dos formularios abiertos y sólo uno sea TopMost:

void ReDrawWindow(HWND hWnd)
{
  TRect cr;
  ::GetClientRect(hWnd, &cr);
  InvalidateRect(hWnd, &cr, true);
  SendMessage(hWnd, WM_NCPAINT, 0, 0);
  RedrawWindow(hWnd, &cr, 0, RDW_FRAME|RDW_ERASE|RDW_INVALIDATE|RDW_UPDATENOW|RDW_ALLCHILDREN);
}

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

  if(Visible && Message.Msg == WM_ACTIVATE && Message.WParam != 0){
    SetWindowPos(Application->MainForm->Handle, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE | SWP_NOACTIVATE);
    for(int i = 0; i<Application->ComponentCount; i++){
      TForm *F = static_cast<TForm*>(Application->Components[i]);
      if (F) ReDrawWindow(F->Handle);
    }
  }

  TForm::WndProc(Message);
}

Saludos.

[chinchan]

Desde luego.... soys geniales. Es lo que andaba buscando. Muchas Gracias de nuevo.