Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   Form en primer plano (https://www.clubdelphi.com/foros/showthread.php?t=81097)

chinchan 10-10-2012 00:54:26
Form en primer plano
 
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 10-10-2012 01:28:02
Mira alguno de los enlaces del final de esta página, abajo del todo, pueden servirte.

ecfisa 10-10-2012 05:05:31
Hola chinchan.

En el evento OnShow del form que te interese tenga ese comportamiento:
Código:
void __fastcall TfrmSecundario::FormShow(TObject *Sender) {
 SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_SHOWWINDOW);
}
Saludos.

escafandra 10-10-2012 08:11:33
La respuesta de ecfisa es correcta ^\||/, como lo es esta variante:
Código:
__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:
Código:
__fastcall TForm2::TForm2(TComponent* Owner)
  : TForm(Owner)
{
  FormStyle = fsStayOnTop;
}

Saludos.

escafandra 10-10-2012 15:34:18
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():
Código:
class TForm2 : public TForm
{
...........
protected:   
  virtual void __fastcall WndProc(Messages::TMessage &Message);
..........
};
Código:
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 15-10-2012 20:10:20
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 16-10-2012 00:32:43
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:

Código:
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:
Código:
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 16-10-2012 06:08:58
Cita:
Empezado por chinchan (Mensaje 447158)
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.

Código:
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 16-10-2012 15:31:29
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:


Código:
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 16-10-2012 19:19:26
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
Código:
  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 16-10-2012 20:41:59
Cita:
Empezado por ecfisa (Mensaje 447248)
Seguramente el comportamiento difiera por la diferente versión de S.O. ...
Muy seguramente...
Cita:
Empezado por ecfisa (Mensaje 447248)
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:?
Código:
  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);
Cita:
Empezado por ecfisa (Mensaje 447248)
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í:
Código:
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 16-10-2012 21:44:03
Cita:
¿Has probado así en Vista:?
Código:
  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:
Código:
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 17-10-2012 00:28:42
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 17-10-2012 01:07:26
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)

Código:
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 17-10-2012 03:27:37
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 17-10-2012 23:45:14
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 :p

Código:
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 18-10-2012 00:47:12
Mejorando el código para el caso de tener mas de dos formularios abiertos y sólo uno sea TopMost:
Código:
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 19-10-2012 02:19:20
Desde luego.... soys geniales. Es lo que andaba buscando. Muchas Gracias de nuevo.


La franja horaria es GMT +2. Ahora son las 23:25:10.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi