Mostrar tantos botones en la barra de tareas como forms abra la aplicación

Artículo por cadetill · 27 febrero 2016

5014 vistas

Para este caso bastará con sobreescribir el método protegido CreateParams



delphi
  1. ....
  2.   protected
  3.     procedure CreateParams(var Params: TCreateParams); override;
  4. ....
  5.  
  6. procedure TForm2.CreateParams(var Params: TCreateParams);
  7. begin
  8.   inherited;
  9.  
  10.   Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
  11. end;



Si además queremos que al minimizar la ventana principal no se minimicen las otras ventanas, bastará con añadir una linea al código presentado.



delphi
  1. procedure TForm2.CreateParams(var Params: TCreateParams);
  2. begin
  3.   inherited;
  4.  
  5.   Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
  6.   Params.WndParent := GetDesktopWindow;
  7. end;



Nota: no funciona para aplicaciones MDI y los formularios mostrados es recomendable que no sean modales.