Aplicação Ativa Na Barra De Tarefas

[Valtran Silva]

Deixa explicar, tenho 2 Forms . O primeiro e um ProgressBar que quando chega a 100% chama o form2, até ai beleza.

Só que quero que quando abra o Form 2, a aplicação fique "Ativa" na barra de tarefas, igual a qualquer outro programa que e aberto no windows.

Engraçado que ela como e de costume só fica aberta no primeiro form quando está carregando a Barra Progresso, Depois Ele Não fica mais ativa.

Não sei se pode ser esse Form1. HIDE.

 

Espero que vocês possam me ajudar, Já pedi ajuda em 3 fórum, e mandei até em grupo de programadores mais ninguém soube me passar a solução

 

Estou usando esse código simples aqui.

procedure TForm1.Timer1Timer(Sender: TObject);
begin

    ProgressBar1.Position := ProgressBar1.Position + 10;
if (ProgressBar1.Position = 100) then
begin

   Form2.Show ;
  Timer1.Enabled:= false;
  Form1.Hide;      
 

Editado 26 Novembro, 2018 por Valtran Silva
Errei

[BigWings]

10 minutos atrás, Valtran Silva disse:

Não sei se pode ser esse Form1. HIDE.

Aparentemente é isso sim. Com o formulário principal da aplicação desativado o ícone na barra de tarefas desaparece também.

O que você pode fazer é forçar o segundo formulário a também aparecer na barra de tarefas, sobrepondo o método CreateParams do mesmo:

  TForm2 = class(TForm)
  private
    { Private declarations }
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

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

 

[Valtran Silva]

Caraca mano muito obrigado, funcionou corretamente, me ajudou muito. Gostaria que você me explicasse como funciona esse código.

Editado 26 Novembro, 2018 por Valtran Silva

[BigWings]

12 minutos atrás, Valtran Silva disse:

Caraca mano muito obrigado, funcionou corretamente, me ajudou muito. Gostaria que você me explicasse como funciona esse código.

Basicamente você está adicionando um "estilo" ao formulário que instrui o Windows a mostrar ele na barra de tarefas:

https://docs.microsoft.com/en-us/windows/desktop/winmsg/extended-window-styles

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.