Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Problema para mantener el Icono de mi APP en Taskbar (https://www.clubdelphi.com/foros/showthread.php?t=96688)

darkamerico 03-05-2024 00:18:15
Problema para mantener el Icono de mi APP en Taskbar
 
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] 03-05-2024 09:27:28
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 03-05-2024 13:50:13
Cita:
Empezado por Neftali [Germán.Estévez] (Mensaje 555562)
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 03-05-2024 15:08:55
Codigo Fuente
 
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] 06-05-2024 10:33:53
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 06-05-2024 15:39:48
Saludos
 
Estimado Netfali,
Aqui remito lo solicitado

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

Atte
Americo

Neftali [Germán.Estévez] 06-05-2024 17:04:07
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 07-05-2024 18:03:36
Gracias
 
Eso era exactamente, un fuerte abrazo!!

marcojanson62 18-05-2024 21:14:03
difficulty keeping your app icon pinned to the taskbar? Try right-clicking the icon, selecting "Pin to Taskbar" for a more permanent fix. Additionally, ensure your app is updated and compatible with your operating system. Sometimes a simple restart or system update can resolve such issues effortlessly.

Casimiro Notevi 19-05-2024 11:42:26
Cita:
Empezado por marcojanson62 (Mensaje 555701)
difficulty keeping your app icon pinned to the taskbar? Try right-clicking the icon, selecting "Pin to Taskbar" for a more permanent fix. Additionally, ensure your app is updated and compatible with your operating system. Sometimes a simple restart or system update can resolve such issues effortlessly.
https://www.deepl.com/translator ;)


La franja horaria es GMT +2. Ahora son las 08:19:36.

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