Gestion de la barre des tâches Aero dans une application MDI

procedure TFormCache.FormCreate(Sender: TObject);
Var
  fForceIconic : Bool;
  fHasIconicBitmap : BOOL;
begin
  // À la création de la fiche on change le style de la fenêtre
  // pour prévenir Windows qu'il doit nous demander une icône
  // et un aperçu.
  // Windows n'est pas capable de le faire de lui-même sur une fiche
  // enfant MDI.
  fForceIconic := True;
  fHasIconicBitmap := True;
  DwmSetWindowAttribute(
      Handle,
      DWMWA_HAS_ICONIC_BITMAP,
      @fHasIconicBitmap,
      sizeof(fHasIconicBitmap));

  DwmSetWindowAttribute(
      Handle,
      DWMWA_FORCE_ICONIC_REPRESENTATION,
      @fForceIconic,
      sizeof(fForceIconic));
end;

  TFormCache = class(TForm)
    {...}
  public
    { Déclarations publiques }
    Class Function CreationFicheCache(FicheMDIFille:TForm):TFormCache;
  end;

{...}

class function TFormCache.CreationFicheCache(FicheMDIFille: TForm): TFormCache;
begin
  if MainForm.TaskBar=Nil then
  Begin
    Result := Nil;
    Exit;
  End;

  // Création de la fiche "cache" et mise à jour des références
  Result := TFormCache.Create(FicheMDIFille);
  Result.MDIFille := FicheMDIFille;
  Result.Caption := FicheMDIFille.Caption;

  // On demande la création du bouton dans la barre des tâches
  MainForm.TaskBar.RegisterTab(Result.Handle,MainForm.Handle);
  // On le place en fin de liste
  MainForm.TaskBar.SetTabOrder(Result.Handle,0);
end;

procedure TMDIChild.FormCreate(Sender: TObject);
begin
  Cache := TFormCache.CreationFicheCache(Self);
end;

procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TFormCache.FormDestroy(Sender: TObject);
begin
  // On désenregistre le bouton de la barre des tâches.
  MainForm.TaskBar.UnregisterTab(Handle);
end;

  TFormCache = class(TForm)
    {...}
  public
    { Déclarations publiques }
    Class Function CreationFicheCache(FicheMDIFille:TForm):TFormCache;
  end;

{...}

procedure TFormCache.DoActivate;
begin
  // Quand la fiche fille devient active, l'icône de la fiche dans la barre
  // des tâches devient celle sélectionnée par défaut
  MainForm.TaskBar.SetTabActive(Handle,MainForm.Handle,0);
end;

procedure TMDIChild.FormActivate(Sender: TObject);
begin
  if Cache<>Nil then
    Cache.DoActivate;
end;

    // On reçoit une demande d'icône ou de prévisualisation taille réelle.
    // Dans les deux cas il capture la copie de la fiche
    BMP := TBitMap.Create;
    Try
      // Le bitmap doit être de type DIB et non DDB le type par défaut
      BMP.HandleType := bmDIB;
      // On ajuste le bitmap à la taille de la zone client
      BMP.Width := MDIFille.ClientWidth;
      BMP.Height := MDIFille.ClientHeight;
      // Et on demande simplement à la fiche de se dessiner dedans
      // Cette méthode a l'avantage de fonctionner même si la fiche
      // est cachée.
      MDIFille.PaintTo(BMP.Canvas,0,0);
      
      {...}
      
    Finally
      Bmp.Free;
    End;

      if Message.Msg = WM_DWMSENDICONICTHUMBNAIL then
      Begin
        // Dans le cas d'une icône il faut d'abord la réduire à
        // la taille maximale acceptée par Windows. Cette taille
        // est donnée en paramètre de message
        ICO := TBitMap.Create;
        Try
          ICO.HandleType := bmDIB;
          // On teste le coeff de réduction pour garder la proportion de l'image
          if (BMP.Width/Message.LParamHi)>(BMP.Height/Message.LParamLo) then
          Begin
            CoeffD := BMP.Width;
            CoeffM := Message.LParamHi;
          End Else
          Begin
            CoeffD := BMP.Height;
            CoeffM := Message.LParamLo;
          End;
          ICO.Width := MulDiv(BMP.Width,CoeffM,CoeffD);
          ICO.Height := MulDiv(BMP.Height,CoeffM,CoeffD);
          ICO.Canvas.StretchDraw(ICO.Canvas.ClipRect,BMP);
          DwmSetIconicThumbnail(Handle,ICO.Handle,DWM_SIT_DISPLAYFRAME);
        Finally
          ICO.Free;
        End;
      End;

      if Message.Msg = WM_DWMSENDICONICLIVEPREVIEWBITMAP then
      Begin
        // On cherche la position de la fiche enfant par rapport au coin
        // supérieur gauche de la fiche MDI principale
        // On part de la position absolue de la zone MDICLIENT de la fenêtre principale
        // On ajoute la position relative de la fiche enfant dans cette zone client
        // On soustrait la position absolue de la fiche principale
        GetWindowRect(MainForm.ClientHandle,Rect);
        Point.X := Rect.Left + MDIFille.Left - MainForm.Left;
        Point.Y := Rect.Top  + MDIFille.Top  - MainForm.Top;
        // Dans le cas d'un aperçu taille réelle on donne directement le bitmap
        DwmSetIconicLivePreviewBitmap(Handle,bmp.Handle,Point,DWM_SIT_DISPLAYFRAME);
      End Else

  TMDIChild = class(TForm)
    {...}
  private
    { Déclarations privées }
    procedure CMTextChanged (var Message: TMessage); message CM_TEXTCHANGED;
  end;

{...}

procedure TMDIChild.CMTextChanged(var Message: TMessage);
begin
  if Cache<>Nil then
    Cache.Caption := Caption;
  Inherited;
end;

  TFormCache = class(TForm)
    {...}
  public
    { Déclarations publiques }
    Procedure DoReSize;
  end;

procedure TFormCache.DoReSize;
begin
  // Quand la fiche fille a changé de taille, on demande à windows
  // d'effacer son cache afin que la nouvelle icône ait les bonnes
  // proportions.
  DwmInvalidateIconicBitmaps(Handle);
end;
{...}

procedure TMDIChild.FormResize(Sender: TObject);
begin
  if Cache<>Nil then
    Cache.DoReSize;
end;