Criando ícone na barra de tarefas a cada Form aberto

Criando ícone na barra de tarefas a cada Form aberto

  julho 28, 2022    Ana Paula Novello

---

Um código simples que hoje me salvou em um projeto.

Exemplo: Em uma ordem de serviço com a opção de abrir várias ordens ao mesmo tempo, com isso ficará vários TForm em abertos ao mesmo tempo, para poder se localizar e abrir a ordem novamente jogamos o nome do cliente para o Caption da tela e colocamos o código abaixo para poder criar um ícone na barra de tarefas do windows para cada ordem aberta. Uma dica simples mas que dependendo da necessidade e um truque muito útil.

Colocar codigo a baixo no Create do TForm.

procedure TFSistema.DoCreate;
begin
  inherited;
  SetWindowLong(Handle, GWL_ExStyle, GetWindowLong(Handle, GWL_ExStyle) or WS_EX_AppWindow);
end;

Abaixo uma mostra de como ficou com vários ícones em aberto.