Fórum Tela de login com icone da barra de tarefas #536121

procedure AbreForm(AForm: TFormClass; Modal: Boolean; Multi: boolean);
var Form : TForm;
Found, i : Integer;
begin
  try
    // Cria o Form
    // Analisa o Tipo, Caso for 1 Abre em Showmodal
    if modal = true then
    begin
          try
          Application.CreateForm(AForm, Form);
          Form.ShowModal;
          finally
          // Finaliza objeto e libera memória:
          Form.Release;
          Form := nil;
          end;
    // Caso contrário abre em Show (analisa se já existe uma janala Aberta)
    end else
    begin
          // Caso false, não permite abrir a mesma janela
          if Multi = false then
          begin
          Found := -1;
          for i := 0 to Screen.FormCount - 1 do
          if Screen.Forms[i] is Aform then Found := i;
          if Found >= 0 then Screen.Forms[Found].Show
          else
          begin
          Application.CreateForm(AForm, Form);
          Form.Show;
          end;
          // caso true, permite abrir a mesma janela
          end else
          begin
          Application.CreateForm(AForm, Form);
          Form.Show;
          end;
    end;
  // Caso Ocorra algum erro
  except
  ShowMessage('Erro ao abrir Formulário.');
  end;
end;