Form en primer plano

[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.