Problema para mantener el Icono de mi APP en Taskbar

[darkamerico]

Saludos amigos,
Como dije en el titulo, unicamente aparece el Icono en taskbar del formulario Login, y desaparece cuando me logeo.
En Login tengo el famoso metodo CreateParams:

Código Delphi [-]
procedure TfrmLogin.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;

En el formulario frmPrincipal, tengo de igual modo otro CreateParams, esperando que me mantenga el Icono pero no funciona.

Este es un problema persistente que tengo hace años.

Agradezco la ayuda amigos.

Atte
Americo

[Neftali [Germán.Estévez]]

Está claro que es un comportamiento que no debería pasar, incluso aunque utilices el procedimiento CreateParams.
Debe ser debido a otro código que estés utilizando.

Si utilizas la propiedad Icon de ambos formularios y la configuración de Iconos de la aplicación se ve correctamente.

Puedes probar a crear un proyecto sencillo con 2 formularios replicando ese comportamiento y subirlo aquí como adjunto para que lo revisemos. Pero es posible que cuando lo hagas veas que sólo con eso no se reproduce.

[darkamerico]

Empezado por Neftali [Germán.Estévez]

Está claro que es un comportamiento que no debería pasar, incluso aunque utilices el procedimiento CreateParams.
Debe ser debido a otro código que estés utilizando.

Si utilizas la propiedad Icon de ambos formularios y la configuración de Iconos de la aplicación se ve correctamente.

Puedes probar a crear un proyecto sencillo con 2 formularios replicando ese comportamiento y subirlo aquí como adjunto para que lo revisemos. Pero es posible que cuando lo hagas veas que sólo con eso no se reproduce.

Gracias amigo, hoy veré eso. Te comentaré mis avances. Un Abrazo

[darkamerico]

Alguien me dijo: Un ejemplo vale mas que mil palabras; de modo que a ello me remito, aqui esta el codigo fuente de las 2 unidades que aparentemente tienen problemas: uLogin y uPrincipal:

uLogin:

Código Delphi [-]
unit uLogin;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, dxSkinsCore,
  dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
  dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
  dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
  dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
  dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful,
  dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven,
  dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
  dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
  dxSkinTheBezier, dxSkinsDefaultPainters, dxSkinValentine,
  dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
  dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint,
  dxSkinXmas2008Blue, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters,
  Vcl.Menus, cxButtons, Vcl.Imaging.jpeg, ActiveDirectory.Types, ActiveDirectory.Client,
  Vcl.ComCtrls, AdvGlowButton, AdvBadge;

type
  TfrmLogin = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Image1: TImage;
    Label2: TLabel;
    txtUsuario: TEdit;
    Label3: TLabel;
    txtClave: TEdit;
    Label6: TLabel;
    txtDominio: TEdit;
    StatusBar1: TStatusBar;
    btnSalir: TAdvBadgeGlowButton;
    btnLogin: TAdvBadgeGlowButton;
    procedure FormActivate(Sender: TObject);
    procedure txtUsuarioExit(Sender: TObject);
    procedure txtClaveExit(Sender: TObject);
    procedure txtClaveKeyPress(Sender: TObject; var Key: Char);
    procedure btnSalirClick(Sender: TObject);
    procedure btnLoginClick(Sender: TObject);
    procedure CreateParams(var Params: TCreateParams);
  private
    { Private declarations }
  public
    idGerenciaOn: SmallInt;
    idAdmContratoOn, nivelUsuarioLogged: Integer;
    fullNameUsuarioLogged:string;
  end;

var
  frmLogin: TfrmLogin;
  posPunto: byte;

implementation

{$R *.dfm}

uses uPrincipal, uFunciones, uDM_Seg;

procedure TfrmLogin.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;

procedure TfrmLogin.btnSalirClick(Sender: TObject);
begin
  Halt;
end;

procedure TfrmLogin.btnLoginClick(Sender: TObject);
var
  cond, Resultado:boolean;
begin
  cond:=(txtUsuario.Text<>'') and (txtClave.Text<>'');

  if not cond then
  begin
    ShowMessage('Error: Todos los Campos Son Requeridos');
    exit;
  end;

  try
    Resultado := ActiveDirectoryClient.AuthenticateUser(txtDominio.Text, txtUsuario.Text, txtClave.Text);
    if Resultado then
    begin
      dmSeg.q_DETUsuario.Close;
      dmSeg.q_DETUsuario.Params[0].AsString:=txtUsuario.Text;
      dmSeg.q_DETUsuario.Open;

      if dmSeg.q_DETUsuario.FieldByName('estado').AsString='0' then
      begin
        ShowMessage('Su Cuenta Está Deshabilitada. Contacte al Administrador');
        exit;
      end;

      dmSeg.q_AreaUsuario.Close;
      dmSeg.q_AreaUsuario.Params[0].AsInteger:=dmSeg.q_DETUsuario.Fields[0].AsInteger;
      dmSeg.q_AreaUsuario.Open;

      if dmSeg.q_AreaUsuario.RecordCount<>0 then
      begin
        idGerenciaOn:=dmSeg.q_AreaUsuario.FieldByName('idGerencia_fk').AsInteger;
        idAdmContratoOn:=dmSeg.q_AreaUsuario.FieldByName('idAdmContrato_fk').AsInteger;
        fullNameUsuarioLogged:=dmSeg.q_DETUsuario.FieldByName('fullName').AsString;
        nivelUsuarioLogged:=dmSeg.q_DETUsuario.FieldByName('nivel').AsInteger;
        Hide;
        frmPrincipal.Show;
      end
      else
        ShowMessage('La cuenta existe pero no tiene Área Asignada. Contacte al Admin.');
    end;
  except
    ShowMessage('Las Credenciales No Corresponden');
  end;
end;

procedure TfrmLogin.FormActivate(Sender: TObject);
begin
  txtUsuario.Text:='';
  txtClave.Text:='';
  txtUsuario.SetFocus;
end;

procedure TfrmLogin.txtClaveExit(Sender: TObject);
begin
  txtClave.Text:=trim(txtClave.Text);
end;

procedure TfrmLogin.txtClaveKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then btnLoginClick(Sender);
end;

procedure TfrmLogin.txtUsuarioExit(Sender: TObject);
begin
  txtUsuario.Text:=trim(txtUsuario.Text);
end;

end.

uPrincipal:

Código Delphi [-]
unit uPrincipal;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, dxSkinsCore, dxSkinBasic, dxSkinBlack, dxSkinBlue,
  dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
  dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
  dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
  dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
  dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
  dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
  dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
  dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
  dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier,
  dxSkinsDefaultPainters, dxSkinValentine, dxSkinVisualStudio2013Blue,
  dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
  dxSkinWhiteprint, dxSkinXmas2008Blue, cxScrollBox, cxContainer, cxEdit,
  dxGDIPlusClasses, cxImage, Vcl.StdCtrls, Vcl.ExtCtrls, HGM.Controls.PanelExt,
  HGM.Controls.PanelCollapsed, Data.DB, Vcl.Menus, cxButtons, Vcl.Grids,
  Vcl.DBGrids, AdvGlowButton, AdvBadge, Vcl.Mask, RxToolEdit, RxCurrEdit;

type
  TfrmPrincipal = class(TForm)
    scroll: TcxScrollBox;
    Label3: TLabel;
    Label4: TLabel;
    gridServicios: TDBGrid;
    Label5: TLabel;
    btnNuevoServicio: TcxButton;
    btnEditarServ: TcxButton;
    Label6: TLabel;
    txtNroRegs: TEdit;
    Label7: TLabel;
    txtBuscaServ: TEdit;
    Image1: TImage;
    btnSalir: TAdvBadgeGlowButton;
    Label1: TLabel;
    gridDetPagos: TDBGrid;
    Label2: TLabel;
    cboTipoCronograma: TComboBox;
    Panel1: TPanel;
    Label8: TLabel;
    Label9: TLabel;
    txtTotalFacturado: TCurrencyEdit;
    Label10: TLabel;
    txtSaldo: TCurrencyEdit;
    lblGerencia: TLabel;
    lblAdmContrato: TLabel;
    Label11: TLabel;
    txtTotalSoles: TCurrencyEdit;
    Label12: TLabel;
    txtTotalDolares: TCurrencyEdit;
    Label13: TLabel;
    Label14: TLabel;
    txtNroTotalSoles: TEdit;
    txtNroTotalDolares: TEdit;
    btnReportes: TAdvBadgeGlowButton;
    btnMaestros: TAdvBadgeGlowButton;
    btnAdmin: TAdvBadgeGlowButton;
    Label15: TLabel;
    lblNombreUsuarioLogged: TLabel;
    Label16: TLabel;
    lblNivelUsuarioLogged: TLabel;
    Label17: TLabel;
    txtTotalPagado: TCurrencyEdit;
    lblMonedaTFact: TLabel;
    lblTotalPagado: TLabel;
    lblTSaldo: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure btnNuevoServicioClick(Sender: TObject);
    procedure gridServiciosCellClick(Column: TColumn);
    procedure cboTipoCronogramaChange(Sender: TObject);
    procedure gridServiciosDblClick(Sender: TObject);
    procedure btnEditarServClick(Sender: TObject);
    procedure btnMaestrosClick(Sender: TObject);
    procedure btnReportesClick(Sender: TObject);
    procedure btnSalirClick(Sender: TObject);
    procedure btnAdminClick(Sender: TObject);
    procedure txtBuscaServEnter(Sender: TObject);
    procedure txtBuscaServKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure CreateParams(var Params: TCreateParams);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPrincipal: TfrmPrincipal;

implementation

{$R *.dfm}

uses uLogin, uNuevoServicio, uFunciones, uDM, uEditarServicio, uReportes,
  uMaestros, uAdmin;

procedure TfrmPrincipal.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
  Params.WndParent := GetDesktopWindow;
end;

procedure TfrmPrincipal.btnReportesClick(Sender: TObject);
begin
  frmReportes.Show;
end;

procedure TfrmPrincipal.btnSalirClick(Sender: TObject);
begin
  Hide;
  frmLogin.Show;
end;

procedure TfrmPrincipal.btnAdminClick(Sender: TObject);
begin
  frmAdmin.ShowModal;
end;

procedure TfrmPrincipal.btnEditarServClick(Sender: TObject);
begin
  frmEditarServ.idObjeto:=gridServicios.DataSource.DataSet.FieldByName('id_objcontrato').AsLargeInt;
  frmEditarServ.ShowModal;
  if frmEditarServ.pages.ActivePageIndex<>0 then
    frmEditarServ.pages.ActivePageIndex:=0;
end;

procedure TfrmPrincipal.btnMaestrosClick(Sender: TObject);
begin
  frmMaestros.ShowModal;
end;

procedure TfrmPrincipal.btnNuevoServicioClick(Sender: TObject);
begin
  if frmNuevoServ.pages.ActivePageIndex<>0 then
    frmNuevoServ.pages.ActivePageIndex:=0;
  frmNuevoServ.ShowModal;
  frmNuevoServ.LimpiaFormulario;
end;

procedure TfrmPrincipal.cboTipoCronogramaChange(Sender: TObject);
var
  posPunto:byte;
  idTipCron:SmallInt;
  idObjeto:LongInt;
begin
  if cboTipoCronograma.Text<>'Seleccionar...' then
  begin
    posPunto:=pos('.',cboTipoCronograma.Text);
    idTipCron:=StrToInt(Copy(cboTipoCronograma.Text,1,posPunto-1));
    idObjeto:=gridServicios.DataSource.DataSet.FieldByName('id_objcontrato').AsLargeInt;
    clsFx.RefrescarVistaGridCronogramaPago2(idTipCron,idObjeto);
    txtTotalFacturado.Value:=clsFx.GetMontoTotalFacturadoObjetoX(idObjeto,idTipCron);
    txtTotalPagado.Value:=clsFx.GetMontoTotalPagadoObjetoX(idObjeto,idTipCron);
    txtSaldo.Value:=clsFx.GetMontoTotalSaldoObjetoX(idObjeto,idTipCron);
    if idTipCron=1 then
    begin
      lblMonedaTFact.Caption:=clsFx.GetNombreMonedaObjetoContratacionX(idObjeto);
      lblTotalPagado.Caption:=lblMonedaTFact.Caption;
      lblTSaldo.Caption:=lblMonedaTFact.Caption;
    end
    else
    begin
      lblMonedaTFact.Caption:=clsFx.GetNombreMonedaExtensionObjetoX(idObjeto,idTipCron);
      lblTotalPagado.Caption:=lblMonedaTFact.Caption;
      lblTSaldo.Caption:=lblMonedaTFact.Caption;
    end;
  end;
end;

procedure TfrmPrincipal.FormActivate(Sender: TObject);
begin
  lblGerencia.Caption:=clsFx.GetNombreGerencia(frmLogin.idGerenciaOn);
  lblAdmContrato.Caption:=clsFx.GetNombreAdmContrato(frmLogin.idAdmContratoOn);
  clsFx.RefrescarVistaObjetosXGerenciayAdmContrato(frmLogin.idGerenciaOn, frmLogin.idAdmContratoOn);
  txtNroRegs.Text:=IntToStr(dm.q_VistaObjetosXGerenciaYAdmContrat.RecordCount);
  clsFx.LlenaComboTipoCronograma(cboTipoCronograma);
  txtTotalSoles.Text:=FloatToStr(clsFX.GetMontoTotalAdmContratoXMoneda(frmLogin.idAdmContratoOn, 1)); // Soles
  txtTotalDolares.Text:=FloatToStr(clsFX.GetMontoTotalAdmContratoXMoneda(frmLogin.idAdmContratoOn, 2));
  txtNroTotalSoles.Text:=IntToStr(clsFX.GetNroTotalAdmContratoXMoneda(frmLogin.idAdmContratoOn, 1));  // Soles
  txtNroTotalDolares.Text:=IntToStr(clsFX.GetNroTotalAdmContratoXMoneda(frmLogin.idAdmContratoOn, 2));
  if frmLogin.nivelUsuarioLogged=0 then btnAdmin.Visible:=True
  else btnAdmin.Visible:=False;
  btnSalir.Left:=880;
  btnMaestros.Left:=880;
  btnReportes.Left:=880;
  btnAdmin.Left:=880;
  lblNombreUsuarioLogged.Caption:=frmLogin.fullNameUsuarioLogged;
  if frmLogin.nivelUsuarioLogged=0 then lblNivelUsuarioLogged.Caption:='Admin'
  else lblNivelUsuarioLogged.Caption:='Usuario Final';

  with dm.q_VistaObjetosXGerenciaYAdmContratLike do
  begin
    Close;
    Params[0].AsSmallInt:=frmLogin.idGerenciaOn;
    Params[1].AsInteger:=frmLogin.idAdmContratoOn;
    Params[2].AsString:='%';
    Open;
    Active:=True;
  end;
  txtNroRegs.Text:=IntToStr(dm.q_VistaObjetosXGerenciaYAdmContratLike.RecordCount);

  txtBuscaServ.SetFocus;
end;

procedure TfrmPrincipal.gridServiciosCellClick(Column: TColumn);
begin
  if not gridServicios.DataSource.DataSet.IsEmpty then
  begin
    clsFx.LlenaComboExtensionesXObjetoX(gridServicios.DataSource.DataSet.FieldByName('id_objcontrato').A  sLargeInt, cboTipoCronograma);
    cboTipoCronograma.Enabled:=True;
    btnEditarServ.Enabled:=True;
    gridDetPagos.DataSource.DataSet.Close;
    cboTipoCronograma.Text:='Seleccionar...';
  end;
end;

procedure TfrmPrincipal.gridServiciosDblClick(Sender: TObject);
begin
  clsFx.RefrescarVistaObjetosXGerenciayAdmContrato(frmLogin.idGerenciaOn, frmLogin.idAdmContratoOn);
  txtNroRegs.Text:=IntToStr(dm.q_VistaObjetosXGerenciaYAdmContrat.RecordCount);
  txtTotalSoles.Text:=FloatToStr(clsFX.GetMontoTotalAdmContratoXMoneda(frmLogin.idAdmContratoOn, 1)); // Soles
  txtTotalDolares.Text:=FloatToStr(clsFX.GetMontoTotalAdmContratoXMoneda(frmLogin.idAdmContratoOn, 2)); // Soles
  txtNroTotalSoles.Text:=IntToStr(clsFX.GetNroTotalAdmContratoXMoneda(frmLogin.idAdmContratoOn, 1));
  txtNroTotalDolares.Text:=IntToStr(clsFX.GetNroTotalAdmContratoXMoneda(frmLogin.idAdmContratoOn, 2));
end;

procedure TfrmPrincipal.txtBuscaServEnter(Sender: TObject);
begin
  dm.ds_VistaObjetosXGerenciaYAdmContrat.DataSet:=dm.q_VistaObjetosXGerenciaYAdmContratLike;
end;

procedure TfrmPrincipal.txtBuscaServKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  with dm.q_VistaObjetosXGerenciaYAdmContratLike do
  begin
    Close;
    Params[0].AsSmallInt:=frmLogin.idGerenciaOn;
    Params[1].AsInteger:=frmLogin.idAdmContratoOn;
    Params[2].AsString:='%' + trim(txtBuscaServ.Text) + '%';
    Open;
    Active:=True;
  end;
  txtNroRegs.Text:=IntToStr(dm.q_VistaObjetosXGerenciaYAdmContratLike.RecordCount);
end;

end.

[Neftali [Germán.Estévez]]

No podemos probar el proyecto con lo que nos has puesto. Faltan los DFMs y además se hacen referencia a muchas unidades que no existen (o de las que no disponemos).
La idea es crear un proyecto simple con 2 formularios donde se reproduzca el problema y adjuntarlo completo (no sólo los PAS).


Un saludo.

[darkamerico]

Estimado Netfali,
Aqui remito lo solicitado

https://www.mediafire.com/file/mksij..._test.zip/file

Atte
Americo

[Neftali [Germán.Estévez]]

Prueba a modificar el código del frm1, por este; A ver si es lo que necesitas:

Código Delphi [-]
procedure Tfrm1.Button1Click(Sender: TObject);
begin
  Hide;
  Application.MainFormOnTaskbar := False;
  frm2.Show;
end;

[darkamerico]

Eso era exactamente, un fuerte abrazo!!